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0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 

0017 

0018 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 


C210-OQ1-6601 < FRTN ) 3C NO, 180463000 RfcV, D 

COMPUTER, DDP-116,516 

PROGRAM CATEGORY- COMPILER 


PROGRAM TITLE, FRTN 

EXPANDED FORTRAN IV COMPILER 
FOR DDP-116,516 


APPROVAL 



DATE 



JQLKjUX. 

.liJjdil. 

..nZ.O.L... 


0001 

0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 
0012 

0013 

0014 

0015 

0016 
0017 
0918 

0019 

0020 
0021 
0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

0032 

0033 

0034 

0035 

0036 

0037 
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0038 

0039 

0040 


0041 

* REV, D 

ECO. 524a 


0042 

• REV, C 

ECO 3824 

10-31-66 

0043 

* REV, B 

ECO 3476 

09-19-66 

0044 

* REV, A 


06-08-66 

0045 

• 



0046 

* AUTHOR 




0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

0073 

0074 


REVISIONS 


HONEYWELL# INC, - COMPUTER CONTROL DIVISION 


PURPOSE 


THIS PROGRAM IS DESIGNED TO COMPILE ASA STANDARD FORTRAN IV 

PROGRAMS IN ONE PASS, GENERATING OPTIMUM OBJECT CODE P O R THE 
DDP-116 OR DDP-516, 


RESTRICTIONS 

MINIMUM 8K CORE STORAGE 


STORAGE 


6682 (DECIMAL) 
15034 (OCTAL) 


USE 


• FORTRAN- I V OPERATING PROCEDURE* 


0038 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0058 

0059 

0060 
0061 
0062 

0063 

0064 

0065 

0066 

0067 

0068 

0069 

0070 

0071 

0072 

n ft ** 1 
vw f w 

0074 
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0075 

0076 

0077 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
0111 


1* LOAD THE COMPILER SYSTEM TAPE USING STANDARD ’LOAD-MODE* 

( DDP-116 ) # OR "PAL-MODE (DDP-516) LOADING PROCEDURES ‘ 

2, SET THE (A) REGISTER FOR THE DESIRED INPUT/OUTPUT DEVICE 

SELECTION AS DESCRIBED BELOW# SET CP) TO *1000# SET THE 
SENSE SWITCHES AS DESCRIBED BELQ*, AND PRESS START, 

3. INPUT/OUTPUT DEVICE SELECTION (BITS SET IN (A) ON ENTRY) 

l ♦♦♦♦♦» if set, Certain error checks are not made, this 

OPTION IS USED WHEN COMPILING THOSE PARTS OF THE 
LIBRARY WRITTEN IN FORTRAN LANGUAGE AND IT ALLOWS THE 

library to take advantage of the compilers logic to 

GENERATE SPECIAL CODING, 

2-7, , , .NOT ASSIGNED 

8-10,,, INPUT DEVICE SELECTION 

1 « ASR-33/35 KEYBOARD COR ITS PAPER TAPE READER) 

2 » NCR CARD READER 

3 * DIGITRONICS PAPER TAPE READER 

4 « MAGNETIC TAPE C UNIT 1 ) 

5-7 ■ < SPARES ) 

11-13, .SYMBOLIC LISTING SELECTION 

0, SUPPRESS ALL SYMBOLIC LISTINGS 

1, ASR-33/35 TYPEWRITER 

2, LINE PRINTER 

3 » C SPARE ) 

4 * LISTING ON MAGNETIC TAPE UNIT 2 
5-7 ■ (SPARES) 

14-16, .BINARY OUTPUT SELECTION 

0, SUPPRESS BINARY OUTPUT, 

1, BRP6 HIGH SPEED PAPER TAPE PUNCH 

2, ASR BINARY OUTPUT ASR/33 


0075 

0076 

0077 
0070 

0079 

0080 
0001 
0062 
0083 

0004 

0005 

0006 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 

0109 

0110 
bill 
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0112 

0113 

0114 
0119 
0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 


3. ASR BINARY OUTPUT ASR/35 
4 « MAGNETIC TAPE OUTPUT 
5*7 (SPARES) 


4. SENSE SNITCH SETTINGS AND MEANINGS. ..... . 

1 EXPAND THE SYMBOLIC LISTING TO INCLUDE 

SIDE-BY-SIDE OCTAL INFORMATION, 

2 INHIBIT SYMBOLIC LISTING (AS LONG AS SSW-1 NOT SET), 

3...... PAUSE BEPORE INPUT OF THE NEXT RECORD. DURING 

THIS PAUSE. THE (A) REGISTER MILL DISPLAY THE CURRENT 
STATUS OF THE I/O KEYBOARD. IT NAY BE 
CHANGED iT THIS TIME IF DESIRED BEFORE RESETTING 
SSN-3 ANDPRESSING START TO CONTINUE. 

4 CAUSE TRACE COUPLING INFORMATION TO BE INCLUDED 

IN THE OBJECT CODING BEING GENERATED 

ANY TRACE STATEMENTS HITHIN THE PROGRAM (OPERATOR 

OVERRIOE), 

5. MHEN BINARY TAPE IS BEING GENERATED. THE COMPILER 

AUTOMATICALLY TURNS ON THE tape punch 1 and p^ches OUT A 
length of leader, after THE END-OF-JOB is typed, a LENGTH of 
trailer is punched bePore turning off the punch, and the line 

PRINTER IS ADVANCED TO THE NEXT PAPER SEAM. PRESS 'START' 

TO PROCESS THE NEXT PROGRAM (BATCH COMPILING), 

FOR ASR BINARY OUTPUT, NO LEADER OR TRAILER IS 

PROVIDED, AND THE BINARY PUNCH IS LEFT ON THROUGHOUT 
THE COMPILATION , 


ERRORS 

THE ERROR MESSAGES OUTPUT BY THIS COMPILER ARE LISTED ON A 
SEPERATE DOCUMENT FOR EASE OF DISTRIBUTION, 

•a#*##################*** 

•data pool entry FORMATS# 


0112 

0113 

0114 

0115 

0116 
0117 
oils 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 

0137 

0138 

0139 

0140 

0141 

0142 

0143 
0X44 

0145 

0146 

0147 

0148 
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0149 

0150 

• 

• 


0149 

0150 

0151 

* THE DATA 

POOL, CONSISTS OF FOUR FORMS OF INFORMATION 

0151 

0152 

* 1, 

THE ASSIGNMENT TABLE CONSISTS OF 5 WORDS, STARTS 

0152 

0153 

* 

AT THE END OF THE COMPILER AND EXTENDS TOWARD ThE 

0153 

0154 

0155 

# 

• 

END OF MEMORY, 

0154 

0155 

0156 

• 

TDCCCCCCCCCCCCCC , , , ,DP(A*4) 

0156 

0157 

• 

CCCCCCCCCCCCCCCC, , , ,DP( a*3) 

0157 

0156 

« 

CCCCCCCCCCCCCCCC, , , ,DP< A*2) 

0158 

0159 

• 

I IAAAAAAAAAAAAAA, , , , DP( A*l) 

0159 

0160 

0161 

• 

• 

NRRRMMMLLLLLLLLL , , , . DP ( A ) 

0160 

0161 

0162 

• 

T • TRACE TAG 

0162 

0163 

* 

D * DATA TAG 

0163 

0164 

* 

C * SIX 8-BIT CHAR, OR BINARY CONSTANT 

0164 

0165 

• 

I * ITEM USAGE (IU) 

0165 

0166 

• 

0 * NO USAGE 2 * VAR/CONSTANT 

0166 

0167 

• 

1 ■ SUBPROGRAM 3 « ARRAY 

0167 

0166 

• 

A • ASSIGNMENT ADDRESS 

0168 

0169 

• 

N ■ NAME TAG (NT) 

0169 

0170 

• 

0 « NAHE 1 * CONSTANT 

0170 

0171 

• 

R * ADDRESS TYPE (AT) 

0171 

0172 

• 

0 « ABSOLUTE 3 s STR I NG-RfcL 

0172 

0173 

• 

1 * RELATIVE 4 « COMMON 

0173 

0174 

• 

2 ■ STRING-ABS 5 * DUMMY 

0174 

0175 

• 

M = ITEM MODE (IM) 

0175 

0176 

* 

1 » INTEGER 5 * COMPLEX 

0176 

0177 

• 

2 * REAL 6 « DOUBLE 

0177 

0170 

* 

3 * LOGICAL 

0178 

0179 

• 

4« CQM/EQU LINK 

0179 

0100 

• 2. 

THE DO TABLE ♦FLOATS* ON TOP OF THE ASSIGNMENT 

0180 

0181 

• 

TABLE AND CONTAINS THE INFORMATION NEEDED TO CLOSfc-OuT 

0181 

0182 


A DO-LOOP, EACH ENTRY IS 5 *ORDS, 

0182 

0103 

* 

0 0 I I 1 1 1 1 1 1 1 1 1 1 1 I 

0183 

0184 

• 

OQTTTFTTTTTTT T TT 

0184 

0105 

• 

ooxxxxxxxxxxxxxx 

0185 




0186 

0167 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 
0196 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 

0207 

0208 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0216 
0217 
0216 

0219 

0220 
0221 
0222 


OOUUUUUUUUUUUUUU 

QQNNNNNNNNNNNNNN 

I ■ INITIAL VALU6/0R RPL 
T « TERMINAL VALUE 
X * INDEX 
U « INCREMENT 
N a STATEMENT NUMBER 

3, THE EXPRESSION TABLE (AOI TABLE) f FLOATS * ON TOP 
THE DO TABLE AND CONSISTS OF 2 WORD ENTRIES, 

NOOOOOOOO 1 1 1 1 1 1 1 , , , , , DP U * 1 ) 

00 AAAAAAAAA AAAAAAA , , ,DP( I ) 

N a NEGATION INDICATOR 

0 a OPERATOR 

1 a INDEX (OPERATOR LEVEL) 

A a ASSIGNMENT TABLE REFERENCE 

4, THE TRIAD TABLE IS USED TO OPTIMIZE EXPRESSIONS AND 
IS AT THE END OF MEMORY EXTENDING DOWN TOWARDS THE 
COMPILER. EACH"ENTRY IS THREE WORDS LONG, 


ORG *100 


SOOOOOOOOOPPPPPP , , , , , DPU*2> 

0011111111111111. . .,» DP (L+l) 

0022222222222222.. .. ,DP(L> 

S • TEMP STORAGE INDICATOR 
P a OPERATOR 

1 a FIRST OPERAND ADDRESS 

2 a SECOND OPERAND ADORESS 


0166 

0167 

0188 

0189 

0190 

0191 

0192 

0193 

0194 

0195 

0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 

0206 
0207 
0206 

0209 

0210 
0211 
0212 

0213 

0214 

0215 

0218 

0217 

0218 

0219 

0220 
n 184 

0222 
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0223 



*. . 




0224 

00100 

0 011101 


DAC 

A3 

(fcUGl ) 

COMPILER ENTRANCE/INITIAIIZE 

0225 

00101 

0 015400 


DAC 

DP 


DATA POOL START 

0226 



• 





0227 



*. . 





0228 

00102 

0 001066 


DAC 

IC00 

( IPG1) 

Input column 

0229 

00103 

0 001251 


DAC 

UCOO 

{ IPG2) 

UNINPUT COLUMN 

0230 

00104 

0 001256 


DAC 

CHOO 

(IPG3) 

INPUT CHARACTER 

0231 

00105 

0 001342 


DAC 

1D00 

< IPG4) 

INPUT DIGIT 

0232 

00106 

0 001355 


DAC 

I A 0 0 

< IPG5 ) 

INPUT (A) CHARACTERS 

0233 

00107 

0 001412 


DAC 

FNOQ 

{ IPG6 ) 

FINISH OPERATOR 

0234 

00110 

0 001521 


DAC 

DNOO 

( I PG7 ) 

INPUT DNA 

0235 

00111 

0 002354 


DAC 

1100 

( IPG8) 

INPUT ITEM 

0236 

00112 

0 002363 


DAC 

OPOO 

( IPG9) 

INPUT OPERAND 

0237 

00113 

0 002373 


DAC 

NAQO 

( IPG10) 

INPUT NAME 

0238 

00114 

0 002404 


DAC 

IGOO 

( IPG11) 

INPUT INTEGER 

0239 

00115 

0 002432 


DAC 

IVOO 

( IPG12 ) 

INPUT INTEGER VAR I ABLfe/CQNSTANT 

0240 

00116 

0 002437 


DAC 

IRQO 

CIPG13) 

INPUT INTEGER VARIABLE 

0241 

00117 

0 002443 


DAC 

ISOO 

< IPG14 ) 

INPUT STATEMENT NUMBER 

0242 

00120 

0 002525 


DAC 

XNQO 

( IPG15) 

examine next character 

0243 

0244 

00121 

0 002520 

* 

DAC 

SYOQ 


INPUT SYMBOL 

0245 





TEST GROUP 



0246 

00122 

0 002547 


DAC 

TSOO 

( TSG1 ) 

ALL CHARACTER TEST (EXCEPT C/R) 

0247 

00123 

0 002555 


DAC 

IPOO 

(TSG2) 

) • I NPUT OPERATOR 

0248 

00124 

0 004266 


DAC 

A1 

(TSS3) 

C/R TEST 

0249 

00125 

0 002567 


DAC 

31 

(TSG4) 

, OR C/R TEST 

0250 

00126 

0 002603 


DAC 

NUOO 

i TSG5 ) 

NO USAGE test 

0251 

00127 

0 002611 


DAC 

NCOO 

(TSG6) 

NON CONSTANT TEST 

0252 

00130 

0 002617 


DAC 

NSQO 

( TSG7 ) 

NON SUBPROGRAM TEST 

0253 

00131 

0 002626 


DAC 

ATOO 

(TSG8) 

ARRAY TEST 

0254 

00132 

0 002635 


DAC 

ITOO 

(TSG9) 

integer TEST 

0255 

0256 

00133 

0 002574 

* 

DAC 

NROO 

(TSG10) 

NON REL TEST 

0257 



* # 1 


.... .ASSIGNMENT GROUP 


0258 

00134 

0 003241 


DAC 

ASOO 

( ASG1 ) 

ASSIGN ITEM 

0259 

0 U 135 

0 003465 


DAC 

TGO 0 

( ASG2) 

tag SUBPROGRAM 


0223 

0224 

0225 

0226 

0227 

0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 



HON 


0260 00136 

0261 00137 

0262 00140 

0263 00141 

0264 00142 

0265 00143 

0266 00144 

0267 00145 

0268 00146 

0269 00147 

0270 00150 

0271 00151 

0272 

0273 

0274 00152 

0275 00153 

0276 00154 

0277 00155 

0278 00156 

0279 00157 

0280 00160 
0281 

0282 

0283 00161 

0284 00162 

0285 00163 
0266 00164 

0287 00165 

0288 00166 

0289 00167 

0290 00170 

0291 00171 

0292 00172 

0293 00173 

0294 00174 

0295 00175 

0296 00176 
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* C210-0Q1- 

6601 

0 

003642 

DAC 

TVOO 

0 

003656 

DAC 

FAOO 

0 

003770 

DAC 

FLOO 

0 

004005 

DAC 

KTOO 

0 

004026 

DAC 

DM00 

0 

004041 

DAC 

DAOO 

0 

004214 

DAC 

AFOQ 

0 

004233 

DAC 

LOGO 

0 

004241 

DAC 

A 1 00 

0 

004252 

DAC 

AAOO 

0 

004062 

DAC 

NXT 

0 

004142 

DAC 

• 

* ........ . 

BUD 

0 

004262 

DAC 

B6 

0 

004264 

DAC 

C5 

0 

004271 

DAC 

C6 

0 

004353 

DAC 

C7 

0 

004456 

DAC 

C8 

0 

004602 

DAC 

A9 

0 

005074 

DAC 

• 

NPOO 

0 

010624 

DAC 

ELOO 

0 

010650 

DAC 

NMOO 

0 

010657 

DAC 

NDOO 

0 

010672 

DAC 

SCOO 

0 

010761 

DAC 

I L 0 0 

0 

011042 

DAC 

Rl 

0 

011044 

DAC 

R2 

0 

011101 

DAC 

A3 

0 

011103 

DAC 

A4 

0 

011105 

DAC 

A5 

0 

011107 

DAC 

A6 

0 

011111 

DAC 

A7 

0 

Q11H5 

U At 

B2 

0 

011154 

DAC 

B3 


( FRTN ) 


3C NO, 180463000 


REV 


PAGE 


( ASG3) 
(ASG4) 
(ASG5) 

( ASG6) 
(ASG7) 

( ASG8) 

( ASG9) 
(ASG1Q) 
(A5G11) 
(ASG12) 


CONTROL GROUP 

(CNG1) 

( CNG2 ) 
(CNG3) 
(CNG4 ) 
( CNG5 ) 
( CNG6 ) 

SPECIFICATIONS GROUP 
(SPG1) 
(SPG2) 
( SP63 ) 
(SPG4) 
(SPG5) 
(SPG6) 

( SPG7 ) 


TAG VARIABLE 
FETCH ASSIGN 
FETCH LINK 

D(0)« SIZE OF ARRAY DEFLECTION 
DEFINE JH 

define AF 

DEFINE AFT 
DEFINE LOCATION 
ASSIGN INTEGER CONSTANT 
ASSIGN SPECIAL 

GET NEXT ENTRY FROM ASSGN TABLE 
BUILD ASSIGNMENT TABLE ENTRY 


JUMP 

ILL TERM 

continue 

STATEMENT 

STATEMENT 

statement 

FIRST NON< 


INPUT 

SCAN 

IDENTIFICATION 
•SPEC CHECK 


exchange links 

NON COMMON TEST 

NON DUMMY OR SUBPROGRAM 

INPUT SUBSCRIPT 

INPUT LIST ELEMENT 

FUNCTION 

subroutine 

INTEGER 

REAL 

DOUBLE PRECISION 

COMPLEX 

LOGICAL 


TEST 


( SPG9 ) DIMENSION 


8 


0260 

0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 
Q2?3 

0274 

0275 

0276 

0277 

0278 
0 279 
0280 
0281 
0282 

0283 

0284 

0285 

0286 
0 287 
0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0296 
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0297 

00177 

0 

011246 


DAC 

B7 


INPUT DIMENSION 

0298 

00200 

0 

011253 


DAC 

84 

(SPG1U) 

COMMON 

0299 

00201 

0 

011335 


DAC 

85 

(SPG11) 

equivalence 

0300 

00202 

0 

011375 


DAC 

C2 

(SPG12) 

RELATE COMMON ITEMS 

0301 

00203 

0 

011442 


DAC 

C3 

(SPG13) 

GROUP EQUIVALENCE 

0302 

00204 

0 

011715 


DAC 

C4 

(SPG14) 

ASSIGN SPECIFICATIONS 

0303 

00205 

0 

011762 


DAC 

W4 

CSPG15) 

DATA- 

0304 

00206 

0 

012303 


DAC 

R3 

(SPG16) 

block data 

0305 

00207 

0 

012313 


DAC 

TRAC 

(SPG17) 

trace 

0306 




• 





0307 




•. * 



GROUP 


0308 

00210 

0 

005210 


DAC 

V3 

CPRG1) 

IF 

0309 

00211 

0 

005334 


DAC 

R7 

CPRG2) 

GO TO 

0310 

00212 

0 

005414 


DAC 

1600 


INPUT BRANCH LIST 

0311 

00213 

0 

005443 


DAC 

W3 

( PRG3 ) 

ASSIGN 

0312 

00214 

0 

005510 


DAC 

C9 

(PRG5) 

DO 

0313 

00215 

0 

005533 


DAC 

V7 

(PRG6) 

end file 

0314 

00216 

0 

005526 


DAC 

V6 


backspace 

0315 

00217 

0 

005535 


DAC 

V8 


rewind 

0316 

00220 

0 

005343 


DAC 

V5 

(PRG7 ) 

READ 

0317 

00221 

0 

005352 


DAC 

V4 


WRITE 

0318 

00222 

0 

005771 


DAC 

V2 

(PRG8) 

format 

0319 

00223 

0 

006160 


DAC 

SIOO 


INPUT FORMAT string 

0320 

00224 

0 

006153 


DAC 

I NO 0 


INPUT NUMERIC FORMAT STRING 

0321 

00225 

0 

006145 


DAC 

NZOO 


NON ZERO STRING TEST 

0322 

00226 

0 

006274 


DAC 

W8 

(PR39) 

pause 

0323 

00227 

0 

006233 


DAC 

W7 


STOP 

0324 

00230 

0 

006301 


DAC 

R0 

(PRG10) 

call 

0325 

00231 

0 

006321 


DAC 

G2 


assignment statement 

0326 

00232 

0 

006330 


DAC 

R9 

( PRG11 ) 

return 

0327 

00233 

0 

006367 


DAC 

G1 

(PRG12) 

STATEMENT FUNCTION 

0328 

00234 

0 

006444 


DAC 

W5 

C PRG13 ) 

END 

0329 




• 





0330 




. 


« » » * .PROCESSOR 

SUBROUTINES 

GROUP 

0331 

00235 

0 

006660 


DAC 

POQU 

( PSG1 ) 

INPUT CHAR AND OUTPUT RACK 

0332 

00236 

0 

006664 


DAC 

HSOO 

(PSG2) 

TRANSMIT HOLLERITH STRING 

0333 

00237 

0 

006702 


DAC 

DPOO 

(PSG3) 

do Input 


U297 

0296 

0299 

0300 

0301 

0302 

0303 

0304 

0305 

0306 

0307 
0306 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

0319 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

0328 

0329 

0330 

0331 

0332 

0333 
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0334 

0 0240 

0 

006747 


DAC 

DSGC 

0335 

00241 

0 

006773 


DAC 

DQOO 

0336 

00242 

0 

007041 


DAC 

EXQQ 

0337 

00243 

Q 

010040 


DAC 

CAOO 

0338 

00244 

0 

010335 


DAC 

STOO 

0339 

00245 

0 

010404 


DAC 

TCQQ 

0340 

00246 

0 

010436 


DAC 

ETQO 

0341 

00247 

0 

010525 


DAC 

GiOQ 

0342 




• 



0343 




*4 4 



0344 

00250 

0 

012330 


DAC 

0100 

0345 

00251 

0 

012337 


DAC 

0100 

0346 

00252 

0 

012363 


DAC 

cnqo 

0347 

00253 

0 

012437 


DAC 

OKOO 

0348 

00254 

0 

012467 


DAC 

0800 

0349 

00255 

0 

012700 


DAC 

OTOO 

0350 

00256 

0 

013147 


DAC 

OMQQ 

0351 

00257 

0 

013773 


DAC 

OROO 

0352 

00260 

0 

014127 


DAC 

OAOO 

0353 

00 261 

0 

014135 


DAC 

OSOO 

0354 

00262 

0 

014365 


DAC 

owoo 

0355 

00263 

0 

014465 


DAC 

PUOQ 

0356 

00264 

0 

014923 


DAC 

FSOO 

0357 

00 265 

0 

013663 


DAC 

TRSE 

0358 

00266 

0 

014301 


DAC 

PRSP 

0359 




• 



0360 




*4 4 



0361 

00267 

0 

002653 


DAC 

AD3 

0362 

00270 

0 

002703 


DAC 

I MOO 

0363 

00271 

0 

002672 


DAC 

STXA 

0364 

00272 

0 

002676 


DAC 

STX1 

0365 

00273 

0 

002722 


DAC 

NFQQ 

0366 

00274 

0 

002741 


DAC 

BUNK 

0367 

00275 

0 

002754 


DAC 

M0V3 

0368 

00276 

0 

002764 


DAC 

CIB 

0369 

00277 

0 

003007 


DAC 

SAV 

0370 

00300 

0 

003016 


DAC 

R5T 


<PSG4> 

DO INITIALIZE 

0334 

(PSG5) 

DO TERMINATION 

0335 

(PSG6) 

EXPRESSION 

0336 

< PSG7 ) 

SCAN 

0337 


TRIAD SEARCH 

0336 


TEMP STORE CHECK 

0339 

(PSG8) 

enter triad 

0340 

(PSG9) 

generate subprogram ENTRANCE 

0341 



0342 



0343 

<QPG1> 

OUTPUT OBJECT LINK 

0344 

( 0PG2 ) 

OUTPUT I/O LINK 

0345 

(OPfiJ ) 

call name 

0346 

(0PG4 j 

OUTPUT PACK 

0347 

(0PG5) 

OUTPUT OA 

0348 

(OP06) 

OUTPUT TRIADS 

0349 

<0P67> 

OUTPUT ITEM 

0350 

(0PQ8) 

OUTPUT RlL 

0351 


OUTPUT ABS 

0352 


OUTPUT STRING 

0353 

(0PG9) 

OUTPUT WORD 

0354 


PICKUP 

0355 

( OPG10 ) 

FLUSH 

0356 

( QPGll ) 

OUTPUT TRACE COUPLING 

0357 


SET BUFFER TO SPACES 

0356 



0369 



0360 


ADD TWO 3 WORD INTEGERS 

0361 


MULTIPLY (A) BY (8) 

0362 


SET A INTO INDEX 

0363 


SET I INTO INDEX 

0364 


SET F | INTO NAMF 

0365 


SET ARgA TO ZEROS 

0366 


MOVE 3 WORDS TO TEMP STORAGE 

0367 


COMPARE IBUF TO A CONSTANT 

0368 


SAVE INDEX IN PUSH-UOWN STACK 

0369 


RESET INDEX FROM PUSH-DOWN STACK 

n i "I n 
u 
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0371 

0372 

0373 

0374 

0375 

0376 

0377 

0378 

0379 

0380 

0381 
0362 

0383 

0384 

0385 

0386 

0387 

0388 

0389 

0390 

0391 

0392 

0393 

0394 

0395 

0396 

0397 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

0407 


* C21Q-001-6601 (FRTN) 


3C NU, 180463000 


W EV, D P A Ob 11 


00301 

0 003055 


DAC 

PACK 



0371 

00302 

0 003116 


DAC 

EROO 


ERROR OUTPUT 

0372 

00303 

0 003157 


DAC 

SRT 


SHIFT RIGHT 1 (TRIPLE PRES,) 

0373 

00304 

0 003202 


DAC 

SFT 


shift left i ( tR j ple pres,) 

0374 

00305 

0 003227 


DAC 

LIST 



0375 



# 





0376 



# 





0377 



# 





0378 



# 


•CONSTANT 

AND 

VARIABLE POOL* 

0379 



• 

• 



• ••»< 


0380 


000000 

XR 

EQU 

0 


INDEX REGISTER 

0381 

0382 



• 


THE FOLLOWING 62 

VARIABLES ARE SET TO ZERO DURING 

0383 



* 


PROGRAM 

INITIALIZATION 

0384 


000040 

A 

EQU 

1 40 


ASSIGNMENT TABLE INDEX 

0389 


000041 

I 

EQU 

a*i 


expression table index 

0306 


000042 

C 

EQU 

A + 2 



0387 


000043 

ASA V 

EQU 

A*3 



0308 


000044 

L 

EQU 

A*4 



0389 


000045 

HFL 

EQU 

A*5 


MODE FLAG 

0390 


000046 

SFF 

EQU 

A*6 


FUNCTION FLAG 

0391 


000047 

SBF 

EQU 

A*7 


Subfunction flag 

0392 


000050 

SXF 

EQU 

A*8 


POSSIBLE CPX Flag 

0393 


000051 

SPF 

EQU 

A*9 


PEC, FLAG 

0394 


000052 

TCF 

EQU 

A*10 


TEMP STORE COUNT 

0395 


000053 

irr 

EQU 

A*ii 



0396 


000054 

ABAR 

EQU 

A*12 


BASE OF ASSIGN TABLE 

0397 


000055 

XST 

EQU 

A*13 


FIRST EXECUTABLE STMNT, 

0398 


000056 

CFL 

EQU 

A*i4 


MON FLAG 

0399 


000057 

D 

EQU 

A + 15 


DO INDEX 

0400 


000060 

RPL 

EQU 

A+16 


RELATE PROGRAM LOCATION 

0401 


000061 

BDF 

EQU 

A^17 


LOCK DATA FLAG 

0402 


000062 

SLST 

EQU 

A + 18 


SOURCE LIST 

0403 


000063 

0BLS 

EQU 

A*19 


OUTPUT BINARY LIST 

0404 


000064 

BNOT 

EQU 

A*2Q 


BINARY OUTPUT FLAG 

U 405 


000065 

TRF 

EQU 

A*21 


trace flag (End trace s t atemlnt no, j 

0406 


000066 

TRFA 

EQU 

A*22 


POIMER TO FIRST VAR, OH ARRAY NAME i . 

0407 
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0408 


• 



AN EXPRESSION (FOR USE BY TRACE), 

04U8 

0409 

000067 

SOF 

EQU 

A*23 

SUBSCRIPT CONSTANT FLAG (NON-ZERO 

IF SET) 0409 

0410 

000070 

UF 

EQU 

A + 24 

logical if flag 

0410 

0411 

000071 

LSTN 

EQU 

A*25 

LASf STATEMENT NO, 

0411 

0412 

000072 

LSTF 

EQU 

A*26 

LAST STATEMENT FLAQ 

0412 

0413 

000073 

LSTP 

EQU 

A*27 

LAST STATEMENT STOP 

Q4l3 

0414 

000074 

SDSW 

EQU 

A*28 

STATEMENT TO SWITCH 

0414 

0415 


• 




0415 

0416 

000570 

NAMF 

EQU 

* 570 

NAME FUNCTION 

0416 

0417 

000571 

NO 

EQU 

NAMF *1 

NO OF DIMENSIONS 

0417 

0418 

000572 

NS 

EQU 

♦ 572 

NO dr SUBSCRIPTS 

0418 

0419 

000573 

NT 

EQU 

ns*i 

NAME TAG 

0419 

0420 

000574 

NfF 

EQU 

NS*2 

NAME TAG FLAG 

0420 

0421 

000575 

NTID 

EQU 

NS*3 

NO, WORDS IN T I D 

0421 

0422 

000576 

01 

EQU 

NS*4 

OPERATOR 1 

0422 

0423 

000577 

02 

EQU 

NS*5 

OPERATOR 2 

0423 

0424 

000600 

P 

EQU 

NS*6 


0424 

0425 

000601 

PONT 

EQU 

NS*7 


0425 

0426 

000602 

OCNT 

EQU 

NS*8 

OUTPUT COUNT 

0426 

0427 

000603 

so 

EQU 

NS*9 


0427 

0428 

000604 

SI 

EQU 

NS*10 

SUBSCRIPT NO , 1 

0428 

0429 

000605 

$2 

EQU 

NS«11 

SUBSCRIPT NO, 2 

0429 

0430 

000606 

S3 

EQU 

N$*12 

SUBSCRIPT NO, 3 

0430 

0431 

000607 

TC 

EQU 

NStl3 

TERMINAL CHAR 

0431 

0432 

000610 

TT 

EQU 

N$414 


0432 

0433 

000611 

TYPE 

EQU 

NS*15 


0433 

0434 

000612 

X 

EQU 

NS+16 

ARRAY INDICES 

0434 

0435 

000613 

XI 

EQU 

NS*17 


0435 

0436 

000614 

X2 

EQU 

NS+18 


0436 

0437 

000615 

X3 

EQU 

N$*19 


0437 

0438 

000616 

X4 

EQU 

NS*2Q 


0438 

0439 

000617 

NTA 

EQU 

N$*21 

UNPACKED ASSIGNMENT ITEMS 

0439 

0440 

000620 

At A 

EQU 

NS*22 


0440 

0441 

000621 

I HA 

EQU 

NS*23 


0441 

0442 

000622 

CLA 

EQU 

NS*24 


0442 

0443 

000623 

IUA 

EQU 

NS^25 


0443 

0444 

000624 

DT A 

EQU 

NS*26 


0444 
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0445 


000625 

TT A 

EQU 

NS + 27 

0446 





* « * 9 1 

i t n n 

, .ADJUST 

0447 






ORG 

1 630 

0448 

00630 

0 

00 

00000 

AF 

PZE 

0 

0449 


000630 

GF 

EQU 

AF 

0450 

00631 

0 

00 

00000 

AT 

PZE 

0 

0451 

00632 

0 

00 

00000 

CODE 

PZE 

0 

0452 

00633 

0 

00 

ooooo 

DO 

PZE 

0 

0453 

00634 

0 

00 

00000 

D1 

PZE 

0 

0454 

00635 

0 

00 

ooooo 

D2 

PZE 

0 

0455 

00636 

0 

00 

ooooo 

D3 

PZE 

0 

0456 

00637 

0 

00 

ooooo 

D4 

PZE 

0 

0457 

00640 

0 

00 

ooooo 

DF 

PZE 

0 

0458 

00641 

0 

00 

ooooo 

NF 

PZE 

0 

0459 

00642 

0 

00 

ooooo 

b 

PZE 

0 

0460 

00643 

0 

00 

ooooo 

dfl 

PZE 

0 

0461 

00644 

000000 

E 

OCT 

0 

0462 

00645 

0 

00 

ooooo 

EP 

PZE 

0 

0463 

00646 

0 

00 

ooooo 

EO 

PZE 

0 

0464 

00647 

0 

00 

ooooo 

FTOP 

PZE 

0 

0465 

00650 

0 

00 

ooooo 

GFA 

PZE 

0 

0466 

00651 

0 

00 

00001 

icsw 

PZE 

1 

0467 

00652 

0 

OQ 

00090 

iflg 

PZE 

0 

0468 

00653 

0 

00 

ooooo 

IM 

PZE 

0 

0469 

00654 

0 

00 

ooooo 

IOF 

PZE 

0 

0470 

00655 

0 

00 

ooooo 

IU 

PZE 

0 

0471 

00656 

0 

00 

ooooo 

KBAR 

PZE 

0 

0472 

00657 

0 

00 

ooooo 

KPRM 

PZE 

0 

0473 

00660 

177777 

EBAR 

OCT 

-1 

0474 

00661 

000017 

DO 

OCT 

17 

0475 

00662 

0 

00 

00111 

CC 

PZE 

♦111 

0476 

00663 

0 

00 

ooooo 

DCT 

PZE 

0 

0477 

00664 

0 

00 

ooooo 

F 

PZE 

0 

0478 

00665 

0 

00 

ooooo 

CL 

PZE 

0 

0479 

00666 

0 

00 

ooooo 

DT 

PZE 

0 

0480 

00667 

0 

00 

ooooo 

FLT1 

PZE 

0 

0481 

00670 

0 

00 

ooooo 

LIBF 

PZE 

0 
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0445 

IF THE SIZE OF THE CONSTANT POOL IS MODIFIED 1)446 

0447 

ADDRESS FIELD 0448 

0449 

ADDRESS TYPE 0450 

OUTPUT CODE 0451 

DIMENSIONS 0432 

0453 

0454 

0455 

0456 

DATA FLAG 0457 

0438 

0459 

DELIMITER FLAG 0460 

EQUIVALENCE INDEX 0*61 

E-PRIME 0462 

E-ZERO 0463 

OUTPUT COMMAND 0464 

0465 

INPUT CONTROL SWITCH 0466 

I-FLAG 0467 

ITEM MODE 0468 

1-0 FLAG 0469 

ITEM USAGE 0470 

TEM STORE 0471 

TEM STORE 0472 

E-BAR 0473 

DO TABLE INDEX(FLOATS ABOVt ASSIGNMENT) 0474 

CARD COLUMN COUNTER " 0475 

DUMMY ARGUMENT COUNT Q4?6 

TRIAD TABLE INDEX 0477 

ASSIGNMENT ITEMS UNPACKED 0478 

0479 

FETCH LINK CL POINTER LOCATJUN 0480 

SPECIAL library flag (NON-ZfcRJ if Sc T ) 0481 
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0462 



* # • • 


, , CONSTANTS USED BY 

0463 

00671 

000251 

K4 

OCT 

251 

0484 

00672 

000254 

K5 

OCT 

254 

0485 

00673 

000240 

K8 

OCT 

240 

0486 

00674 

000257 

K9 

OCT 

257 

0487 

00675 

000256 

K10 

OCT 

256 

0486 

00676 

000255 

K12 

OCT 

255 

0489 

00677 

000253 

K13 

OCT 

253 

0490 

00700 

000244 

K15 

OCT 

244 

0491 

00701 

000016 

K16X 

OCT 

16 

0492 

00702 

000250 

K17 

OCT 

250 

0493 

00703 

000275 

Hie 

OCT 

275 

0494 

00704 

142317 

K19 

SCI 

1* DO 

0495 

00705 

000324 

K34 

OCT 

324 

0496 

00706 

000317 

K35 

OCT 

317 

0497 

00707 

153716 

K4Q 

BCI 

IfWN 

0498 

00710 

151316 

K41 

BCI 

1# RN 

0499 

00711 

141702 

K42 

BCI 

If CB 

0500 

00712 

000311 

K43 

OCT 

311 

0501 

00713 

000321 

K44 

OCT 

321 

0502 


000705 

K45 

EQU 

K34 

0503 

00714 

000252 

K$7 

OCT 

252 

0504 

00715 

000260 

K60 

OCT 

260 

0505 

00716 

000271 

K61 

OCT 

271 

0506 


000704 

K60 

EQU 

K19 

0507 

00717 

000001 

K101 

OCT 

1 

0508 

00720 

000002 

K102 

OCT 

2 

0509 

00721 

000003 

K103 

OCT 

3 

0510 

00722 

000004 

K104 

OCT 

4 

0511 

00723 

000005 

K1Q5 

OCT 

5 

0512 

00724 

000006 

K106 

OCT 

6 

0513 

00725 

000007 

K107 

OCT 

7 

0514 

00726 

000020 

K109 

DEC 

16 

0515 

00727 

000377 

K1Q0 

OCT 

377 

0516 

00730 

037777 

Kill 

OCT 

37777 

0517 

00731 

177757 

KUO 

DEC 

-17 

0516 

00732 

170777 

K115 

OCT 

170777 


THE COMPILER 

0462 

0) 

0483 

Of 

0484 

0-SPACE 

0485 

0/ 

0486 

0 . 

0487 

0- 

0488 

0* 

0489 

OS 

0490 

0491 

0( 

0492 

0 s 

0493 

DO 

0494 

OT 

0495 

00 

0496 

0497 

RN 

0498 

0499 

01 

0500 

OQ 

Q$01 

OT 

0502 

0» 

0503 

00 (BCI ZERO) 

0504 

09 

0505 

0506 

0507 
0506 

0509 

0510 

0511 

0512 

0513 

0514 

0515 

0516 

0517 

0518 
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0519 

00733 

177400 

K116 

OCT 

17740U 




0520 

00734 

177745 

K117 

DEC 

-27 




0521 

00735 

000777 

K118 

OCT 

777 




0522 

00736 

177000 

K119 

OCT 

177000 




0523 

00737 

177761 

K120 

DEC 

-15 




0524 

00740 

040000 

K122 

OCT 

040000 




0525 

00741 

177777 

K123 

DEC 

-1 




0526 

00742 

000011 

K124 

DEC 

9 




0527 

00743 

000010 

K125 

DEC 

8 




0528 

00744 

000012 

K126 

DEC 

10 




0529 

00745 

000013 

K127 

DEC 

11 




0530 

00746 

000014 

K128 

DEC 

12 




0531 

00747 

000015 

K129 

DEC 

13 




0532 

00750 

177762 

K131 

DEC 

-14 




0533 

00751 

000022 

K132 

OCT 

22 




0534 

00752 

000017 

K134 

OCT 

17 




0535 

00753 

024002 

K137 

OCT 

24002 




0536 

00754 

000025 

K138 

OCT 

25 




0537 

00755 

000024 

K139 

OCT 

24 




0538 

00756 

000215 

CRET 

OCT 

215 



0 C/R 

0539 

00757 

000000 

ZERO 

OCT 

0 




0540 

00760 

140000 

HBIT 

OCT 

140000 



HIGH BITS FOR ALPHA DATA 

0541 

00761 

142721 

KAEQ 

BCI 

1»EQ 



EQUIVALENCE ERROR MESSAGE ATTACHMENT 

0542 

00762 

177776 

M2N2 

DEC 

-2 



-2 

0543 

00763 

000340 

HC2 

OCT 

340 




0544 

00764 

000357 

K357 

OCT 

357 




0545 



• 






0546 



• 






0547 

AC 4 6 


015400 

DP 

EQU 

*15400 



DUMMY START OF DATA POOL (ACTUALLY SET 

0548 



• 





BY THE FORTRAN I OS SUBROUTINE,) 

0549 


000113 

IQ 

EQU 

'113 



DUMMY END OF DATA POOL (MINUS 3 WORDS) 

0550 



• 


THE FOLLOWING 

INSTRUCTIONS CAUSE THE LOADER 

0551 



• 


TO ASSIGN 

ALL 

REFERENCES TO THE DATA POOL IN WORDS 

0552 



• 


100 TO 112 

OF 

THE 

ZERO SECTOR, FORTRAN 1 OS WILL 

0553 



• 


CAUSE THESE CELLS 

TO BE SET TO THE ACTUAL DATA POOL 

0554 



• 


LOCATIONS 

WHICH WILL Bfc DETERMINED BY COMPUTER 

0555 



# 


CONFIGURATION, 




0519 

0520 

0521 
Q522 

0523 

0524 

0525 

0526 

0527 

0528 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 

0539 

0540 

0541 

0542 

0543 

0544 

0545 

0546 

0547 

0548 

0549 

0550 

0551 

0552 

0553 

0554 

0555 
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0556 





ORG 

’1000 


0357 

01000 

1 

00 

15374 

PZE 

DP-4,1 

(100) 

0550 

01001 

1 

QQ 

15375 

PZE 

DP-3,1 

(101) 

0559 

01002 

1 

00 

15376 

PZE 

DP-2,1 

(102) 

0560 

01003 

1 

00 

15377 

PZE 

DP-1# 1 

(103) 

0561 

01004 

1 

00 

15400 

PZE 

DP,1 

(104) 

0562 

01005 

1 

00 

15401 

PZE 

DP*1, 1 

(105) 

0563 

01006 

1 

00 

15402 

PZE 

DP*2, 1 

(106) 

0564 

01007 

1 

00 

15403 

PZE 

DP*3, 1 

(107) 

0565 

01010 

1 

00 

15404 

PZE 

DP*4, 1 

(110) 

0566 

01011 

1 

00 

15405 

PZE 

DP*5,1 

(111) 

0567 

01012 

1 

00 

15406 

PZE 

DP*6, 1 

(112) 

0563 

01013 

0 

00 

15407 

PZE 

DP*7 

(113) 

0569 




• 




0570 




• 




0571 





ORG 

1 


0572 

00001 

0 

10 

03116 

JST 

EROO 

THIS I 

0573 

00002 

141707 

BCI 

1# CG 

COMP 


0574 

0575 

0576 

0577 
0570 
0579 
0560 
0581 


data pool, references 


NO WDS IN DATA POOL. SET BY I OS 


ICT ION REACHED ONLY IF THE 
JUMPED TO ZERO BY MISTAKE, 


•START OF COMPILER* 


0582 




ORG 

*1000 

0503 



• 



0584 



• 



0585 



• 



0586 



• 


AO 

0587 

01000 

040Q 

61 

LRL 

15 

0588 

01001 

0 04 

00670 

STA 

LIBF 

0589 

01002 

0410 

61 

LLL 

15 

0590 

01003 

0 10 

00000 AO 

CALL 

F4SINT 

0591 

01004 

0 02 

01153 

LDA 

K108 

0592 

01005 

0 04 

00662 

STA 

CC 


COMP ENT EMPTY BUFFERS 


SET SPECIAL LIBRARY FLAG 

(BIT 1 ON INHIBITS CERTAIN ERROR CHECKS) 

INITIALIZE I/O DEVICES 

CC * 73 


0556 

0357 

0550 

0359 

0560 

0561 

0562 

0563 

0564 

0565 

0566 

0567 
0668 

0569 

0570 

0571 

0572 

0573 

0574 

0575 

0576 

0577 

0578 

0579 

0580 

0581 

0582 

0583 

0584 

0585 

0586 

0587 

0588 

0589 

0590 

0591 

0592 
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0593 

01006 

0 10 

01066 

JST 

ICOO 

0594 

01007 

0 02 

01063 

A05 1 LDA 

AQ9Q 

0595 

01010 

0 04 

ooudo 

STA 

XR 

0596 

01011 

0 02 

01065 

LDA 

A092 

0597 

01012 

0 04 

03030 

STA 

SAV9 

0598 

01013 

140040 

CRA 


0599 

01014 

1 04 

00076 

STA 

A*M,1 

0600 

01015 

1 04 

00626 

STA 

NAMF ♦M# 1 

0601 

01016 

0 12 

00000 

IRS 

XR 

0602 

01017 

0 01 

01014 

JMP 

»-3 

0603 

01020 

0 04 

00652 

STA 

IFLG 

0604 

01021 

0 04 

12435 

STA 

PKF 

0605 

01022 

0 10 

14523 

JST 

FSOO 

0606 

01023 

140401 

CMA 


0607 

01024 

0 04 

00072 

STA 

LSTF 

0608 

01025 

0 04 

00073 

STA 

LSTP 

0609 

01026 

0 04 

00660 

STA 

EBAR 

0610 

01027 

0 02 

00113 

LDA 

LO 

0611 

01030 

0 04 

00651 

STA 

ICSW 

0612 

01031 

0 04 

00646 

STA 

EO 

0613 

01032 

0 04 

00044 

STA 

L 

0614 

01033 

0 10 

14301 

JST 

PRSP 

0615 

01034 

0 02 

00752 

LDA 

K134 

0616 

01035 

0 04 

00661 

STA 

DO 

0617 

01036 

0 07 

00754 

SUB 

K138 

0618 

01037 

0 04 

01064 

STA 

Ad9l 

0619 

01040 

140040 

CRA 


0620 

01041 

0 04 

01475 

STA 

ID 

0621 

01042 

0 12 

01475 

A055 IRS 

ID 

0622 

01043 

0 10 

04241 

JST 

A 1 0 0 

0623 

01044 

0 12 

01064 

IRS 

AO 91 

0624 

01045 

0 01 

01042 

JMP 

A055 

0625 

01046 

0 02 

02731 

LDA 

K81 

0626 

01047 

0 04 

01475 

STA 

ID 

0627 

01050 

0 04 

U1476 

STA 

ID*1 

062b 

01051 

0 04 

01477 

STA 

ID + 2 

0629 

01052 

140040 

CRA 



INPUT COLUMN 0593 

0594 

0595 

loc, of index push-down buffer 0596 

INITIALIZE PUSH-DOWN BUFR, 0597 

0598 

SET M VARIABLES TO ZERO 0599 

0600 

0601 

0602 

0603 

0604 

INITIALIZE OUTPUT BUFFER 0605 

0606 

LSTF NOT EQ 0 0607 

LSTP NOT EQ 0 0608 

6BAR SET NEGATIVE 0609 

0610 

, , 0611 

INITIALIZE EQUIVALENCE TABLE 0612 

INITIALIZE TRIAD TABLE POINTER 0613 

SET PRINT BUFFER TO SPACES 0614 

0615 

INITIALIZE DO TABLE POINTER 0616 

0617 

0618 

0619 

0620 

ESTABLISH CONSTANTS 0621 

0622 


0623 

0624 

0625 

0626 

0627 

0628 
0629 



0630 01053 

0631 01054 

0632 01055 

0633 01056 

0634 01057 

0635 01060 

0636 01061 

0637 01062 

0638 

0639 01063 

0640 01064 

0641 01065 

0642 

0643 

0644 

0645 

0646 

0647 

0648 

0649 

0650 

0651 

0652 

0653 

0654 

0655 01066 

0656 01067 

0657 01070 

0658 01071 

0659 01072 

0660 01073 

0661 01074 

0662 01075 

0663 01076 

0664 01077 

0665 01100 

0666 01101 


E Y W E L I 
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NfcV, D PAGE IS 


0400 40 


LRL 

32 

0 02 00717 


LDA 

K101 

0 10 04252 


JST 

AAOO 

0 10 02672 


JST 

STXA 

0 04 00056 


STA 

cfl 

0 06 00740 


ADD 

K122 

1 04 15401 


STA 

DR*1 

0 01 04353 


JMP 

C7 

000036 

M 

EQU 

30 

1 177742 

A090 

DAC* 

•M,l 

0 00 00000 

A091 

PZE 

0 

0 003031 

A092 

DAC 

SAVX 


( d ) *0 IMsNO USAGE 
( A ) *1 I U*SUBR 
ASSIGN (SPECIAL) 

SET POINTER A INTO INDEX AND C A ) 

CFL*A (LOCATION OF FIRST COMMON BLOCK) 
**40000 (IU-SUBR) 

GF(A)*A (IN CASE NO BLANK COMMON IS SPECIFI 
GO TO STMNT INPUT 


START OF INDEX PUSH-DOWN BUFFER 


•INPUT COLUMN* 



• 


INPUT NEXT 

CHARACTER 


• 


IGNORE BLANKS 


• 


CHECK 

FOR COMMENTS 


• 



ico 2 Set as follows - 


• 



NORMAL - ICIP 


• 



INITIAL SCAN -ICSR 

0 oooooo 

ICOO 

DAC 

•• 

LINK STORE 

0 10 03007 


JST 

SAV 

SAVE INDEX 

0 02 00662 


LDA 

CC 

IF CC * 73, GO TO IC 10 

0 07 01153 


SUB 

K108 


100040 


SZE 



0 01 01125 


JMP 

IC19 

ELSE, GO TO IC 

0 02 00651 

I CIO 

LDA 

JCSW 

IF ICSW, GO TO IC12 

101040 


SNZ 



0 01 01141 


JMP 

IC24 

ELSE, GO TO IC24 

0 10 0000 0 

C\l 

r» 
O 
« ; 

CALL 

F4SIN 

INPUT SYMBOLIC CARD IMAGE 

Q 001155 


DAC 

C I 


0 02 01155 


LDA 

Cl 



0630 

0631 

0632 

0633 

0634 

0635 

0636 

0637 

0638 

0639 

0640 

0641 

0642 

0643 

0644 

0645 

0646 

0647 
0640 

0649 

0650 

0651 

0652 

0653 

0654 

0655 

0656 

0657 

0658 

0659 

0660 
0661 
0662 

0663 

0664 
9665 
0666 
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0667 

01102 

0404 

70 


LGR 

8 

GO TO IC 14 

0667 

0668 

01103 

0 11 

01152 


CAS 

K16 

= ( C) 

0668 

0669 

01104 

0 01 

01106 


JMP 

#♦2 


0669 

0670 

01105 

0 01 

01150 


JMP 

IC30 

COMMENT CARD (IGNORE) 

0670 

0671 

01106 

0 07 

00700 


SUB 

Kl5 

*<S> 

0671 

0672 

01107 

101040 


SNZ 



0672 

0673 

OHIO 

0 01 

01116 


JMP 

I Cl 8 

CONTROL CARD ( I GNQRE COLUMN 6) 

0673 

0674 

01111 

0 02 

00764 


LDA 

K357 

IF CARD COL. SIX IS 

0674 

0675 

01112 

0 03 

01157 


ANA 

C I *2 

ZERO OR BLANK, GO TO IC18 

0675 

0676 

01113 

0 07 

00673 


SUB 

K8 


0676 

0677 

01114 

100040 


SZE 



0677 

0678 

01115 

0 01 

01144 


JMP 

IC26 

ELSE* GO TO I C26 

0678 

0679 

01116 

0 04 

00662 

I CIS 

STA 

CC 

tC * 0 , 

0679 

0680 

01117 

0 02 

01157 


IDA 

CI*2 

Cl<6> * SPECIAL 

0680 

0681 

01120 

0 03 

00733 


ANA 

K116 


0681 

0682 

01121 

0 06 

00763 


ADD 

HC2 

*»340 

0682 

0683 

01122 

0 04 

01157 


STA 

C 1 ♦ 2 


0683 

0684 

01123 

0 02 

00756 


LDA 

CRET 


0684 

0685 

01124 

0 01 

01135 


JMP 

I C20 

TC * C , R , 

0685 

0686 

01125 

0 02 

00662 

IC19 

LDA 

CC 

TC « CI(CC) 

0686 

0687 

01126 

0 07 

00717 


SUB 

K101 


0687 

0688 

01127 

0404 

77 


LGR 

1 


0688 

0689 

01130 

0 04 

00000 


STA 

XR 


0689 

0690 

01131 

1 02 

01155 


LDA 

CM 


0690 

0691 

01132 

101001 


SSC 



0691 

0692 

01133 

0404 

70 


LGR 

8 


0692 

0693 

01134 

0 03 

00727 


ANA 

K100 


0693 

0694 

01135 

0 04 

00607 

IC20 

STA 

TC 


0694 

0695 

01136 

0 12 

00662 


IRS 

CC 

CC t CC*1 

0695 

0696 

01137 

0 10 

03016 

IC22 

JST 

RST 

restore index 

Q696 

0697 

01140 

-0 01 

01066 


JMP# 

I CO 0 

RETURN 

0697 

0698 

01141 

0 02 

00674 

I C24 

LDA 

K9 

TC ■ /, END OF LINE - STATEMENT SCAN 

0698 

0699 

01142 

0 04 

00607 


STA 

TC 


0699 

0700 

01143 

0 01 

01137 


JMP 

I C22 

GO TO IC22 

0700 

0701 

01144 

0 10 

03227 

I C26 

JST 

LIST 

LIST, CONTINUATION CARD 

0701 

0702 

01145 

0 02 

00725 


LDA 

K1U7 

CC ■ 7, IGNORE STATEMENT NO, 

0 702 

0703 

01146 

0 04 

00662 


STA 

CC 


0703 
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0704 

01147 

0 01 01125 


JMP 

IC19 

0705 

01150 

0 10 03227 

I C30 

JST 

LiST 

0706 

01151 

0 01 0107 7 


JMP 

IC12 

0707 

01152 

000303 

K16 

OCT 

303 

0708 

01153 

000111 

K108 

DEC 

73 

0709 

01154 

120240 

KASP 

0 C I 

1, 

0710 

01155 


Cl 

BSS 

40 

0711 

01225 

120240 


BCI 

20, 


01226 

120240 





01227 

120240 





01230 

120240 





01231 

120240 





01232 

120240 





01233 

120240 





01234 

120240 





01235 

120240 





01236 

120240 





01237 

120240 





01240 

120240 





01241 

120240 





01242 

120240 





01243 

120240 





01244 

120240 





01245 

120240 





01246 

120240 





01247 

120240 





01250 

120240 




0712 



• 



0713 



« 



0714 



• 



0715 



• 



0716 



• 


•UNlNPUT 

0717 



• 



0718 



• 


BACK UP ONE 

0719 



• 



n n 

w / tv 

n 4 OB 4 
v 

O ftrt rtrt ftn 
v u g v u w v 

nrirt rt 

uugu 

u A V# 

W v 

0721 

01252 

0 13 00662 


IMA 

CC 


GO TO I Cl 9 
PRINT CARD IMAGE 
READ IN NEW CARD 
0C 


(SPXSP) MUST PRECEDE CARD IMAGE BUFFER 


COLUMN# 


column 


0704 

0705 

0706 

0707 

0708 

0709 

0710 

0711 


0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 

0721 


CCS cc-l 
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0722 

01253 

0 

07 00717 


SUB 

K101 

RETAIN (A) 

0722 

0723 

01254 

0 

13 00662 


IMA 

CC 


0723 

0724 

01255 

•0 

01 01251 


JMP« 

UCOO 


0724 

0725 




• 




0725 

0726 




• 




0726 

0727 




• 




0727 

0728 




• 


•INPUT 

CHARACTER* 

0728 

0729 




# 




0729 

0730 




• 


INPUT ONE 

CHARACTER FROM EITHER 

073c 

0731 




« 


1, INPUT BUFFER CE9AR POSITIVE) OR 

0731 

0732 




• 


2, EQUIVALENCE BUFFER (EBAR NEGATIVE) 

0732 

0733 




• 




0733 

0734 

01256 

0 

000000 

CH00 

DAC 

♦ * 


0734 

0735 

01257 

0 

02 00660 


LDA 

EBAR 

IF EBAR 7 0, 

0735 

0736 

01260 

101400 


SMI 



0736 

0737 

01261 

0 

01 01314 


JMP 

CH10 

GO TO CH10 

0737 

0738 

01262 

0 

10 01066 

CH03 

JST 

ICOO 

INPUT COLUMN 

0738 

0739 

01263 

0 

07 00673 


SUB 

K8 

IF BLANK, REPEAT 

0739 

0740 

01264 

101040 


SNZ 



0740 

0741 

01265 

u 

01 01262 


JMP 

CHQ3 


0741 

0742 

01266 

0 

02 00607 


LDA 

TC 

ELSE, 

0742 

0743 




• 




0743 

0744 

01267 

0 

11 01341 

CHQ4 

CAS 

CH13 

■ •301 

0744 

0745 

01270 

101000 


NOP 



0745 

0746 

01271 

0 

01 01306 


JMP 

CHG6 


0746 

0747 

01272 

0 

11 00716 


CAS 

K61 

»* 271 

0747 

0748 

01273 

0 

01 01303 


JMP 

CHO 5 


0748 

0749 

01274 

101000 


NOP 



0749 

0750 

01275 

0 

11 00700 


CAS 

K15 

i*244 

0 750 

0751 

01276 

0 

01 01300 


JMP 

*♦2 


0751 

0752 

01277 

0 

01 01302 


JMP 

CH05-1 


0 75 2 

0753 

01300 

0 

11 00715 


CAS 

K60 

> '260 

0753 

0754 

01301 

101000 


NOP 



0 754 

0755 

01302 

140040 


CRA 


ALPHA numeric character 

0755 

0756 

01303 

0 

04 00643 

CH05 

STA 

dfl 

DELIMITER ENTRY 

0756 

U757 

01304 

0 

02 00607 


LDA 

TC 

EXIT 4 1 TH TC I., 4 

0757 

0 75 6 

U 1 305 

• 0 

01 01256 


JMP* 

CHOC 


0 758 
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0759 

01306 

0 11 01340 

CHQ6 

CAS 

K63 

*•332 

0759 

0760 

01307 

0 01 01303 


JMP 

CH05 


0760 

0761 

01310 

101000 


NOP 



0761 

0762 

01311 

0 01 01302 


JMP 

CH05-1 


0762 

0763 

01312 

0 04 00643 

CH08 

STA 

DPI 


0763 

0764 

01313 

•0 01 01256 


JMP* 

CHOO 


0764 

0765 

01314 

0 02 00644 

CH10 

IDA 

E 

IF E * EBAR 

0765 

0766 

01315 

0 11 00660 


CAS 

EBAR 


0766 

0767 

01316 

0 01 01320 


JMP 

*♦2 


0767 

0768 

01317 

0 01 01335 


JMP 

CH12 

GO TO CH12 

0768 

0769 

01320 

0 04 00000 


STA 

0 

SET E INTO INDEX 

0769 

0770 

01321 

0410 60 


LIL 

16 

SET <B> TO ZERO 

0770 

0771 

01322 

1 02 15400 


IDA 

DP# 1 

current character word 

0771 

0772 

01323 

0412 70 


LLR 

8 


0772 

0773 

01324 

1 04 15400 


STA 

DP# 1 

SAVE REMAINING CHARACTER IF ANY 

0773 

0774 

01325 

000201 


I AB 



0774 

0775 

01326 

0 04 00607 


STA 

TC 

TC»LEFTMOST CHARACTER 

0775 

0776 

01327 

100040 


SZE 


SKIP IF NEW CHARACTER WORD NEEDED 

0776 

0777 

01330 

0 01 01267 


JMP 

CHQ4 


0777 

0778 

01331 

0 02 00644 


lda 

E 

E«E*1 

0778 

0779 

01332 

0 07 00717 


SUB 

K101 

*1 

0779 

0780 

01333 

0 04 00644 


STA 

E 


0780 

0781 

01334 

0 01 01314 


JMP 

CH10 

PICK UP NEXT CHARACTER WORD 

0781 

0782 

01335 

140500 

CH12 

SSM 


MAKE E MINUS 

0782 

0783 

01336 

0 04 00660 


STA 

EBAR 


0783 

0784 

01337 

0 01 11715 


JMP 

C4 

GO TO ASSIGN SPEC 

0784 

0785 

01340 

000332 

K63 

OCT 

332 

OZ 

0785 

0786 

01341 

000301 

CH13 

OCT 

301 


0766 

0787 



• 




0787 

0788 



• 




0788 

0789 



* 




0789 

0790 



# 


•INPUT DIGIT* 


0790 

0791 



# 


•••••••••*••• 


0 791 

0792 



* 


A IS ZERO IF NOT 

DIGIT 

0792 

0793 



• 




0793 

« •* A 

a o *v in 

a a n n n n n 

* n r\ n 

n i n 

w w 

T klQ » IT MfOIT 

0794 

0795 

01343 

0 10 01256 


JST 

CHOO 

input a char 

0795 
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0796 

01344 

0 11 00716 


CAS 

K61 



a'2/1 (9) 


0796 

0797 

01345 

•0 01 01342 


JMP# 

IDOO 



(A) * TC 


0797 

0798 

01346 

0 01 01353 


JMP 

I DIO 



ELSE, (A) a 0 


0798 

0799 

01347 

0 11 00715 


CAS 

K60 



RETURN 


0799 

0800 

01350 

101000 


NOP 






0800 

0801 

01351 

0 01 01353 


JMP 

#♦2 





0801 

0802 

01352 

•0 01 01342 


JMP# 

IDOO 





0802 

0803 

01353 

140040 

I DIO 

CRA 






0803 

0804 

01354 

•0 01 01342 


JMP* 

IDOO 





0804 

0805 



• 







0805 

0806 



• 







08Q6 

0807 



* 


#4 

»*4H 




0807 

0808 



• 


•INPUT (A) CHARACTERS# 


0808 

0809 



* 


• 4 

>#»4 




0809 

0810 



• 


CHAR 

COUNT IN XR, 

TERMINATES WITH EITHER 


0810 

0811 



• 



1. 

char count 

-1 * ZERO OR 


0811 

0812 



• 



2, 

LAST CHAR 

IS A DELIMITER 


0812 

0813 



• 







0813 

0814 

01355 

0 000000 

I A 0 0 

DAC 

• » 





0814 

0815 

01356 

140407 


TCA 




SET COUNTER 


0815 

0816 

01357 

0 04 01411 


STA 

IA99 





0816 

0817 

01360 

0 10 01374 


JST 

I A50 



EXCHANGE IBUF AND ID 


0817 

0818 

01361 

140040 


CRA 






0818 

0819 

01362 

0 04 (J 0575 


STA 

NT I D 



NT I D a 0 


0819 

0820 

01363 

0 10 01256 

I A 1 0 

JST 

CHUQ 



INPUT A CHARACTER 


0820 

0821 

01364 

0 10 03055 


JST 

PACK 





0821 

0822 

01365 

0 02 00643 


IDA 

DFL 



IF DFL NOT ZERO, 


0822 

0823 

01366 

100040 


SZE 




CONTINUE 


0823 

0824 

01367 

0 01 01372 


JMP 

I A2 0 



ELSE, 


0824 

0825 

01370 

0 12 01411 


IRS 

I A99 



TEST COUNTER 


0825 

0826 

01371 

0 01 01363 


JMP 

I A 1 0 



MORE CHARACTERS TO INPUT 


0826 

0827 

01372 

0 10 01374 

IA20 

JST 

I A50 



EXCHANGE ID AND IBUF 


0827 

0828 

01373 

-0 01 01355 


JMP# 

I A00 



RETURN 


0828 

0829 

01374 

0 000000 

IA50 

DAC 

• • 



EXCHANGE IBUF AND ID 


0829 

0830 

01375 

0 10 03007 


JST 

SAV 



SAVE INDEX 


0830 

0831 

01376 

0 02 01410 


LDA 

I A90 





0831 

0832 

01377 

0 04 00000 


STA 

XR 





0832 
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0833 

01400 

1 

02 

01504 


LDA 

I BUF*3# 1 


0833 

0834 

01401 

1 

13 

01500 


IMA 

!D*3#1 


0834 

0835 

01402 

1 

04 

01504 


STA 

IBUF*3,1 


0835 

0836 

01403 

0 

12 

00000 


IRS 

XR 


0836 

0837 

01404 

0 

01 

01400 


JMP 

*•4 


0837 

0638 

01405 

0 

10 

03016 


JST 

RST 

RESTORE INDEX 

0838 

0839 

01406 

0 

02 

00575 


LDA 

Nf ID 


0839 

0840 

01407 

•0 

01 

01374 


JMP* 

I A50 


0840 

0841 

01410 

177775 

1A90 

OCT 

•3 


0841 

0842 

01411 

0 

00 

00000 

IA99 

PZE 

0 


0842 

0843 





• 




0843 

0844 





• 




0844 

0845 





• 




0845 

0846 





• 


•FINISH 

OPERATOR* 

0846 

0847 





• 




0847 

0848 





• 


WRAP UP LOGICAL/RELATIONAL OPERATORS 

0848 

0849 





• 




0849 

0850 

01412 

0 

000000 

fnqq 

DAC 

• • 


0850 

0851 

01413 

0 

02 

00643 


LDA 

dfl 

IF UFL NOT , , 

0851 

0852 

01414 

0 

04 

01561 


STA 

IBUF 


0852 

0853 

01415 

0 

07 

00675 


SUB 

K10 


0853 

0854 

01416 

100040 


SZE 



0854 

0855 

01417 

0 

01 

01422 


JMP 

FN05 

GO TU FNQ5 

0855 

0856 

01420 

0 

02 

00722 


LDA 

K1Q4 


0856 

0857 

01421 

0 

10 

01395 


JST 

IA00 


0357 

0858 

01422 

0 

02 

00731 

FN05 

LDA 

KUO 

USE table to convert 

0858 

0859 

01423 

0 

04 

00000 


STA 

XR 

OPERATOR 

0859 

0860 

01424 

1 

02 

01460 

FN10 

LDA 

FN90*17,1 


0860 

0861 

01425 

0 

11 

01501 


CAS 

IBUF 


0861 

0862 

01426 

0 

01 

01430 


JMP 

*♦2 


0862 

0863 

01427 

0 

01 

01434 


JMP 

FN20 


0863 

0864 

01430 

0 

12 

ooooo 


IRS 

XR 


0864 

0865 

01431 

0 

01 

01424 


JMP 

FN10 


0865 

0866 

01432 

0 

02 

00607 


LDA 

TC 


0866 

0867 

01433 

-0 

01 

01412 


JMP* 

FNOO 


0867 

uooo 

A J 4 1 4 

Uim 

1 

vc 

vi •*/ 7 

f N2u 

LUA 

f i* If i 1 

FuyNu a LOGICAL OrtRATuR 

uooo 

0869 

01435 

0 

04 

00607 


STA 

TC 

SET INTO TC 

0869 
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0870 

01436 

•0 01 01412 


JMP 

0871 

01437 

000253 

FN90 

OCT 


01440 

000255 




01441 

000252 




01442 

000257 



0872 

01443 

147317 


BCI 


01444 

140716 




01445 

147722 




01446 

146324 




01447 

146305 




01450 

142721 




01451 

143705 




01452 

143724 




01453 

147305 



0873 

01454 

000275 


OCT 


01455 

000254 



0874 

01456 

000001 

FN91 

OCT 


01457 

000002 




01460 

000003 




01461 

000004 




01462 

000005 




01463 

000006 




01464 

000007 




01465 

000010 




01466 

000011 




01467 

000012 




01470 

000013 




01471 

000014 




01472 

000015 




01473 

000016 




01474 

000017 



0875 



* 


0876 



• 


0877 



• 


0878 



• 


0879 



* 


0880 



* 



FNOO 

253,255,252,257 ♦-*/ 

9, NO A NORLTUEE 0GEGTN6 


275,254 *, 

1,2, 3, 4, 5, 6, 7, 10, 11 , 12, 13, 14, 15, 16, 17 


•INPUT DNA* 

BASIC INPUT ROUTINE, HANDLES FOLLOWING 


0870 

0871 


0872 


0873 

0874 


0875 

0878 
0877 
0678 

0879 

0880 
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0381 



• 


CONSTANT CONVERSION 

0882 



• 


MODE 

TYPING (CONSTANTS, I MPL I E D/ V AH I A6LES 

0683 



• 


ALL 

OPERATORS (TERMINATE ITEM) 

0884 



« 




0805 

01475 


ID 

BSS 

4 


0086 


001475 

T1D 

EQU 

ID 

TEMP STORE FOR ID 

0807 

01501 


IBUF 

BSS 

3 

J-WOHD BUF 

0888 

01504 

0 00 00000 

TIDN 

PZE 

0 


0889 

01505 

177727 

K155 

OCT 

177727 

-41 

0890 

01506 

024000 

K156 

OCT 

024000 

1085 

0891 

01507 

007777 

K157 

OCT 

007777 


0892 

01510 

074000 

K158 

OCT 

074000 


0893 

01511 

0 00 00000 

FI 

PZE 

0 ' 

SIGN FLAG 

0894 

01512 

0 00 00000 

F2 

PZE 

0 


0995 

01513 

0 00 00000 

F3 

PZE 

0 

INPUT EXPONENT 

0 0 96 

01514 

0 00 00000 

F4 

PZE 

0 

NO, FRAC. POSITIONS 

0897 

01515 

0 00 00000 

F5 

PZE 

0 

TEMP DELIMITER STORE 

0898 

01516 

0 00 00000 

F 6 

PZE 

0 


0899 

01517 

0 00 00000 

L4 

PZE 

0 

HOLLERITH FLAG 

0900 

01520 

0 00 uoooo 

holf 

PZE 

0 

090 1 

01521 

0 000000 

DN00 

DAC 

• • 


0902 

01522 

140040 

DN01 

CRA 



0903 

01523 

0 04 01520 


STA 

HOLF 

SET HULF *0 

0904 

01524 

0 04 01514 


STA 

F 4 

F4 * 0 

0905 

01525 

0 04 00655 


STA 

IU 

IU*NT*NTID*0 

0906 

01526 

0 04 00573 


STA 

NT 

0907 

01527 

0 04 U 0575 


STA 

NT I D 


0908 

01530 

0 10 02741 


JST 

BLNK 

CLEAR OUT TID = ID 

0909 

01531 

0 001475 


DAC 

TID 


0910 

01532 

0 10 02741 


JST 

BLNK 

FI , F 2, F 3 « 0 

0911 

01533 

0 001511 


DAC 

FI 

0912 

01534 

140040 

ON 06 

CRA 



0913 

01535 

0 04 00653 


STA 

IM 


0914 

01536 

0 04 02352 


STA 

DNX2 

INPUT DIGIT 

0915 

01537 

0 10 01342 

DivQ 7 

JST 

I DO 0 

0916 

01540 

100040 


SZE 


(A) NON-ZERO. GO TO DN14 

0917 

01541 

0 01 01603 


JMP 

DM4 


C 68 1 
0882 
0683 

0884 

0885 
U886 
0 86 7 

0886 

0889 

0890 

0891 

0892 
0693 

0894 

0895 

0896 

0897 

0898 

0899 

0900 
090 1 

0902 

0903 

0904 

0905 

0906 

0907 

0908 

0909 

0910 
09H 

0912 

0913 

0914 

0915 

il O 1 

u r * 

0917 
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0918 

01542 

0 

02 

01477 

DN10 

LDA 

T I D ♦ 2 

0919 

01543 

0 

03 

01510 


ANA 

K158 

0920 

01544 

100040 


SZE 


U921 

01545 

0 

01 

01575 


JMP 

SKIP 

0922 

01546 

0 

06 

00653 


ADD 

IM 

0923 

01347 

0405 

77 


ARS 

1 

0924 

01550 

0 

06 

01514 


ADD 

F4 

0925 

01551 

0 

04 

0l5i4 


STA 

F4 

0926 

01552 

0 

02 

00717 


LDA 

K101 

0927 

01553 

0 

04 

00573 


STA 

NT 

0928 

01554 

0 

06 

00717 


ADD 

K101 

0929 

01555 

0 

04 

00655 


STA 

IU 

0930 

01556 

0 

10 

03202 


JST 

SFT 

0931 

01557 

0 

001475 


DAC 

ID 

0932 

01560 

0 

10 

02754 


JST 

M0V3 

0933 

01561 

0 

10 

03202 


JST 

SFT 

0934 

01562 

0 

001475 


DAC 

ID 

0935 

01563 

0 

10 

03202 


JST 

SFT 

0936 

01564 

0 

001475 


DAC 

ID 

0937 

01565 

0 

10 

02653 


JST 

AD3 

0938 

01566 

0 

10 

02741 


JST 

BLNK 

0939 

01567 

0 

002347 


DAC 

DNX1 

0940 

01570 

0 

02 

00607 


LDA 

TC 

0941 

01571 

0 

07 

00715 


SUB 

K60 

0942 

01572 

0 

04 

02347 


STA 

DNX1 

0943 

01573 

0 

10 

02653 


JST 

AD3 

0944 

01574 

0 

01 

01537 


JMP 

DN07 

0945 

01575 

0 

02 

00762 

SKIP 

LDA 

MIN2 

0946 

01576 

0 

06 

00633 


ADD 

IM 

0947 

01577 

0405 

77 


ARS 

1 

0948 

01600 

0 

06 

01514 


ADD 

F 4 

0949 

01601 

0 

04 

01514 


STA 

F 4 

0950 

01602 

0 

01 

01537 


JMP 

DNO 7 

0951 

01603 

0 

02 

00653 

DN14 

LDA 

IM 

0952 

01604 

0 

07 

00720 


SUB 

K102 

0953 

01605 

100040 


SZE 


0954 

01606 

0 

01 

01704 


JMP 

DN50 


3C NO, 180463000 KbV. D PAGE 27 


CHECK FOR OVERFLOW AND ADJUST 0918 

POSITION COUNT IF NECESSAR? , 0919 

0920 

0921 

0922 

0923 

F 4 * F4 *1 \F NO OVERFLOW 0924 

AND IM ALREADY SET TO REAL 0925 

0926 

NT* 1 0927 

0926 

IU * VAR/COD 0929 

SHIFT ID LEFT 0930 

0931 

MOVE TO TEMP STORE 0932 


0933 

0934 

0935 

0936 

ID * 10«ID*TC 0937 

0938 

0939 

0940 

0941 

0942 

0943 

0944 

0945 

0946 

0947 

0948 

0949 

0950 

IM * REAL 0951 

0952 

0953 

0954 


NO, GO TO DNSJ 
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0955 

01607 

0 02 00675 

DN16 

IDA 

K10 

YES, 

0955 

0956 

01610 

0 04 01515 

DN17 

STA 

F5 

F5 « • , » 

0956 

0957 

01611 

0 02 00643 


LDA 

DFL 

IF DFL «0, GO SO DN20 (5) 

0957 

0958 

01612 

100040 


SZE 



0958 

0959 

01613 

0 01 02144 


JMP 

DN9Q 

ELSE GO TO DN90 (9) 

0959 

0960 

01614 

0 02 00607 

DN20 

LDA 

TC 

IF TC * D, GO TO DN26 

0960 

0961 

01615 

0 07 02543 


SU8 

Kll 


0961 

0962 

01616 

101040 


SNZ 



0962 

0963 

01617 

0 01 01660 


JMP 

DN26 


0963 

0964 

01620 

0 07 00717 


SUB 

K101 

ELSE, IF TC * E, GO TO DN22 

0964 

0965 

01621 

101040 


SNZ 



0965 

0966 

01622 

0 01 01631 


JMP 

DN22 

TERMINATOR ■ E 

0966 

0967 

01623 

0 10 01251 


JST 

UCOO 


0967 

0968 

01624 

0 02 00675 


LDA 

K10 

•’256 (,) 

0968 

0969 

01625 

0 04 00643 


STA 

DFL 

SET DELIMITER FLAG 

0969 

0970 

01626 

0 02 00717 


LDA 

K101 

»1 

0970 

0971 

01627 

0 04 00653 


STA 

IM 

SET ITEM MODE TO INTEGER 

0971 

0972 

01630 

0 01 01772 


JMP 

DN67 

FINISH OPERATOR AND EXIT 

0972 

0973 



• 




0973 

0974 

01631 

0 10 01342 

0N22 

JST 

I DO 0 

INPUT DIGIT 

0974 

0975 

01632 

101040 


SNZ 


IF (A) > o, GO TO DN30 

0975 

0976 

01633 

0 01 01670 


JMP 

DN30 


0976 

0977 

01634 

0 02 00607 


LDA 

TC 

IF TC ■ GO TO DN28 

0977 

0978 

01635 

0 07 00676 


SUB 

K12 


0978 

0979 

01636 

101040 


SNZ 



0979 

0980 

01637 

0 01 01663 


JMP 

DN28 


0980 

0981 

01640 

0 06 00720 


ADD 

K102 


0981 

0982 

01641 

101040 


SNZ 



0982 

0983 

01642 

0 01 01665 


JMP 

DN29 


0983 

0984 

01643 

0 02 01515 


LDA 

F5 


0984 

0985 

01644 

0 04 00643 


STA 

DFL 


0985 

0986 

01645 

0 10 01251 


JST 

UCOO 

UN-INPUT COL 

0986 

0987 

01646 

0 10 01412 

DN24 

JST 

FNQO 

finish OPERATOR 

0987 

0988 

01647 

0 02 00717 

0N25 

LDA 

K101 

IM » I NT 

0986 

0989 

01650 

0 04 00653 


STA 

IM 


0989 

0990 

G1651 

0 02 01476 


LDA 

1 D*i 

if- id is too big to 

0990 

0991 

01652 

100040 


SZE 


BE AN INTEGER <>L2), 

0991 
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0992 

01653 

0 01 01776 


JMP 

DN69 

GO TU DN69 (20) 


0992 

0993 

01654 

0 02 01477 


LDA 

I D ♦ 2 



0993 

0994 

01655 

100040 


SZE 




0994 

0995 

01656 

0 01 01776 


JHP 

DN69 



0995 

0996 

01657 

0 01 02055 


JMP 

DN84 

OTHERWISE, GO TO 

DN84 { 12 ) 

0996 

0997 

01660 

0 02 00724 

DN26 

IDA 

K10 6 

IM « DBL 


0997 

0998 

01661 

0 04 00653 


STA 

IM 



0998 

0999 

01662 

0 01 01631 


JMP 

DN22 



0999 

1000 

01663 

0 02 00717 

DN28 

LDA 

K101 

F2 s i 


1000 

1001 

01664 

0 04 01512 


STA 

F2 



1001 

1002 

01665 

0 10 01342 

DN29 

JST 

IDOO 

INPUT DIGIT 


1002 

1003 

01666 

100040 


SZE 


IF (A) * 0, GO TO 

DN30 (6.5) 

1003 

1004 

01667 

0 01 01776 


JMP 

DN69 

ELSE, GO TO DN69 

(20) 

1004 

1005 

01670 

0 02 01513 

DN3Q 

LDA 

F3 

F3 * 10 # F 3 


1005 

1006 

01671 

0415 75 


ALS 

3 



1006 

1007 

01672 

0 13 01513 


IMA 

F3 

F 3 * F3 +TC 


1007 

1008 

01673 

0415 77 


ALS 

1 



1008 

1009 

01674 

0 06 01513 


ADD 

F3 



1009 

1010 

01675 

0 06 00607 


ADD 

TC 

INPUT DIGIT 


1010 

1011 

01676 

0 07 00715 


SUB 

K60 



1011 

1012 

01677 

0 04 01513 


STA 

F3 

IF (A) 9 0# GO TO 

DN30 (8,5) 

1012 

1013 

01700 

0 10 01342 


JST 

IDOO 

ELSE, GO TO DN9Q 

(9) 

1013 

1014 

01701 

100040 


SZE 




1014 

1015 

01702 

0 01 02144 


JMP 

DN90 



1015 

1016 

01703 

0 01 01670 


JMP 

DN3Q 



1016 

1017 

01704 

0 02 00720 

DN50 

LDA 

K102 

I M»RE A 


1017 

1018 

01705 

0 04 00653 


STA 

IM 



1018 

1019 

01706 

0 02 00607 


LDA 

TC 

IF TC ■ , , GO TO 

DN54 

1019 

1020 

01707 

0 07 00675 


SUB 

K10 



1020 

1021 

01710 

101040 


SNZ 




1021 

1022 

01711 

0 01 01725 


JMP 

DN54 

ELSE, 


1022 

1023 

01712 

0 02 00573 


LDA 

NT 



1023 

1024 

01713 

101040 


SNZ 


IF NT ■ 0, GO TO 

DN72 

1024 

1025 

01714 

0 01 02005 


JMP 

DN72 



1025 

1026 

01715 

0 02 00607 


LDA 

TC 

IF TC s H, GO TO 

DN9H (22) 

1026 

1027 

01716 

0 07 02544 


SU8 

K14 



1027 

1028 

01717 

101040 


SNZ 




1028 
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1029 

01720 

0 01 02301 


JMP 

DN9H 

1030 

01721 

0 02 00643 


LDA 

DFL 

1031 

01722 

100040 


SZE 


1032 

01723 

0 01 01647 


JMP 

DN25 

1033 

01724 

0 01 01607 


JMP 

DN16 

1034 

01725 

0 10 01342 

DN54 

JST 

I DO 0 

1035 

01726 

101040 


SNZ 


1036 

01727 

0 01 01542 


JMP 

DN10 

1037 

01730 

0 02 00573 


LDA 

NT 

1038 

01731 

101040 


SNZ 


1039 

01732 

0 01 01735 


JMP 

DN56 

1040 

01733 

0 02 00607 


LDA 

TC 

1041 

01734 

0 01 01607 


JMP 

DN16 

1042 

01735 

140040 

DN56 

CRA 


1043 

01736 

0 04 00607 


STA 

TC 

1044 

01737 

0 10 01251 

DN56 

JST 

UCOO 

1045 

01740 

0 02 01511 


LDA 

FI 

1046 

01741 

100040 


SZE 


1047 

01742 

0 01 01756 


JMP 

DN63 

1048 

01743 

0 02 Q0?24 

DN60 

LDA 

K106 

1049 

01744 

0 10 01355 


JST 

I AO 0 

1050 

01745 

0 10 02764 


JST 

CIB 

1051 

01746 

1 002534 


DAC 

Kl*3,l 

1052 

01747 

0 01 01761 


JMP 

DN64 

1053 

01750 

0 10 02764 


JST 

CIB 

1054 

01751 

1 002537 


DAC 

K2+3, 1 

1055 

01752 

0 01 01763 


JMP 

DN66 

1056 

01753 

0 10 02764 


JST 

CIB 

1057 

01754 

1 002543 


DAC 

KNOT+3 , 1 

1058 

01755 

0 01 02342 


JMP 

DN9N 

1059 

01756 

140040 

DN63 

CRA 


1060 

01757 

0 04 00653 


STA 

IM 

1061 

01760 

0 01 01772 


JMP 

DN67 

1062 

01761 

0 02 00717 

DN64 

LDA 

KlOl 

1063 

01762 

0 04 01475 


STA 

TID 

1 AA4 

w-r 

V * f vy 

n ft o ft n "H f 

V V b V r * f 

rui £ <L 

VI1VU 

i n a 

L UM 

i/ 4 ft H 
n AV A 

1065 

01764 

0 04 00573 


STA 

NT 
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1029 

IP OF L « 0, 1030 

GO TO ONI 6 (4,9) 1031 

ELSE i GO TO DN25 1032 

1033 

INPUT DIGIT 1034 

1035 

IF (A) * 0, GO TO DN10 (3) 1036 

1037 

IF NT « 0, GO TO DN56 1038 

1 0 3 9 

F5 ■ TC 1040 

GO TO DN16 (4) 1041 

1042 

TC * ) 1043 

UN-INPUT A COLUMN, 1044 

IF FI « 0, GO TO DN60 1045 

1046 

ELSEr GO TO DN63 (15) 1047 

1048 

INPUT (6) CHARS 1049 

IF IBUF » TRUE., 1050 

1051 

1052 

IF IBUF « FALSE,, 1053 

GO TO DN66 (16) 1054 

1055 

CHECK FOR , NOT , OPERATOR 1056 

CHECK FOR .NOT. OPERATOR 1057 

OPEHATOR IS .NOT, 1058 

IM « 0 1059 

1060 

GO TO DN67 (18) 1061 

1062 

1063 

4 n 4. A 


4W 

1065 


NAME tag s 1 (CONSTANT) 
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1066 

01765 

0 02 00720 


LDA 

K102 

IU*VAR 

1066 

1067 

01766 

0 04 00655 


STA 

IU 


1067 

1068 

01767 

0 02 00721 


LDA 

K103 


1068 

1069 

01770 

0 04 00653 


STA 

IM 

IM * LUG 

1069 

1070 

01771 

0 10 01256 


JST 

CHQO 


1070 

1071 

01772 

0 10 01412 

DN67 

JST 

FNOO 

FINISH OPERATOR 

1071 

1072 

01773 

0 02 01516 

DN68 

LDA 

F 6 

IF F6 c o, 

1072 

1073 

01774 

101040 


SNZ 


GO TO DN7Q (21) 

1073 

1074 

01775 

0 01 02000 


JMP 

DN70 


1074 

1075 

01776 

0 02 00675 

DN69 

LDA 

K10 


1U 75 

1076 

01777 

0 04 00607 


STA 

TC 

TC * , 

1076 

1077 

02000 

140040 

DN70 

CRA 



1077 

1078 

02001 

0 04 01516 


STA 

F6 

F 6 « SXF * 0 

1078 

1079 

02002 

0 04 00050 


STA 

SXF 


1079 

1060 

02003 

0 02 00653 


LDA 

IM 

(A) * IM 

1080 

1081 

02004 

-0 01 01521 


JMP* 

DNQO 

return 

1081 

1082 

02005 

0 02 01511 

DN72 

LDA 

FI 

IF FI s o, GO TO DN74 

1082 

1083 

02006 

101040 


SNZ 



1083 

1084 

02007 

0 01 02013 


JMP 

DN74 


1084 

1085 

02010 

0 02 01511 


LDA 

FI 

ELSE, TC • FI 

1085 

1086 

02011 

0 04 00607 


STA 

TC 


1086 

1087 

02012 

0 01 01737 


JMP 

DN58 

GO TO DN58 (14) 

1087 

1088 

02013 

0 02 00607 

DN74 

LDA 

TC 

IF TC * GO TO DN82 

1088 

1089 

02014 

0 07 00676 


SUB 

K12 


1089 

1090 

02015 

101040 


SNZ 



1090 

1091 

02016 

0 01 02052 


JMP 

DN82 


1091 

1092 

02017 

0 06 00720 


ADD 

K102 

CHECK FOR TC * ♦ 

1U92 

1093 

02020 

101040 


SNZ 



1093 

1094 

02021 

0 01 02052 


JMP 

DN82 


1094 

1095 

02022 

0 02 00643 


LDA 

DFL 

IF DFL « NON-ZERO 

10 95 

1096 

02023 

100040 


SZE 



1096 

1097 

02024 

0 01 01756 


JMP 

DN63 

GO TO DN63 (15) 

1097 

1098 

02025 

0 02 00607 


LDA 

TC 


1098 

1099 

02026 

0 11 00712 


CAS 

K43 


1099 

1100 

02027 

0 01 02032 


JMP 

*♦3 


1100 

1101 

02030 

0 01 02035 


JMP 

DN78 


1101 

1102 

02031 

0 01 02037 


JMP 

DN80 


1102 
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1103 

02032 

0 11 02545 


CAS 

K62 


1103 

1104 

02033 

0 01 02037 


JMP 

DN80 


1104 

1105 

02034 

101000 


NOP 



1105 

1106 

02035 

0 02 00717 

DN78 

LDA 

K101 

IM * I NT 

1106 

1107 

02036 

0 04 00653 


STA 

IM 


1107 

1108 

02037 

0 02 00607 

DN8Q 

LDA 

TO 

PACK TC TO ID 

1108 

1109 

02040 

0 10 03055 


JST 

PACK 


1109 

1110 

02041 

0 10 01256 


JST 

CHOO 

INPUT CHAR 

1110 

1111 

02042 

0 02 00643 


LDA 

DFL 

IF dfl is not zero, 

1111 

1112 

02043 

100040 


SZE 


GO TO DN6 7 (18) 

1112 

1113 

02044 

0 01 01772 


JMP 

DN67 


1113 

1114 

02045 

0 02 00575 


LDA 

NTID 

IF NTID « 6, GO TO DN67 

1114 

1115 

02046 

0 07 00724 


SUB 

K106 


ms 

1116 

02047 

100040 


SZE 



1116 

1117 

02050 

0 01 02037 


JMP 

DN80 


1117 

1116 

02051 

0 01 01772 


JMP 

DN67 


1118 

1119 

02052 

0 10 01412 

PN82 

JST 

FNO 0 


1119 

1120 

02053 

0 04 0l5il 


STA 

FI 

FI « CONVERTED TC 

1120 

1121 

02054 

0 01 01534 


JMP 

DN06 

GO TO DN06 (2) 

1121 

1122 

02055 

0 02 01511 

DN84 

LDA 

FI 

IF FI » 

1122 

1123 

02056 

0 07 00720 


SUB 

Ki02 

GO TO DN85U3) 

1123 

1124 

02057 

100040 


SZE 



H24 

1125 

02060 

0 01 02100 


JMP 

DN85 


1125 

1126 

02061 

140040 


CRA 



1126 

1127 

02062 

0 07 01475 


SUB 

TID 

COMPLEMENT THREE WORDS AT 

TID 1127 

1128 

02063 

100040 


SZE 



1128 

1129 

02064 

0 01 02071 


JMP 

DN8A 


1129 

1130 

02065 

0 07 01476 


SUB 

TID*1 


1130 

1131 

02066 

100040 


SZE 



, 1131 

1132 

02067 

0 01 02074 


JMP 

DN8B 


1132 

1133 

02070 

0 01 02076 


JMP 

DN8C 


1133 

1134 

02071 

0 04 01475 

DN8A 

STA 

TID 


1134 

1135 

02072 

0 02 00741 


LDA 

K123 


1135 

1136 

02073 

0 07 01476 


SUB 

T I D ♦ 1 


1136 

1137 

02074 

0 04 01476 

DN8B 

STA 

TIU*1 


1137 

1138 

non7«? 

V fc« w ' r 

0 02 Q0741 


LDA 

K123 


1138 

1139 

02076 

0 07 01477 

UN8C 

SUB 

TID*2 


1139 



HONEYWELL 


COMPUTER CONTROL DIVISION 


PROGRAM DOCUMENTATION 


* C210-0Q1-66Q1 (FRTN) 3C M 0*180463000 RfcV . D PAQt 33 


1140 

02077 

0 04 01477 


STA 

TID*2 



114U 

1141 

02100 

0 02 00050 

DN85 

LDA 

SXF 

IF SXF * 0, GO TO 

DN67 (18) 

1141 

1142 

02101 

101040 


SNZ 




1142 

1143 

02102 

0 01 01772 


JMP 

DN67 

ELSE, 


1143 

1144 

02103 

0 02 00653 


LDA 

IM 

IF IM NOT « R£A, 


1144 

1145 

02104 

0 07 00720 


SUB 

K102 



1145 

1146 

02105 

100040 


SZE 


GO TO DN67 (18) 


1146 

1147 

02106 

0 01 01772 


JMP 

DN67 



1147 

1148 

02107 

0 02 01516 


LDA 

F 6 

ELSE, 


1148 

1149 

02110 

101040 


SNZ 


IF F 6 * 0, GO TO 

DN87 

1149 

1150 

02111 

0 01 02127 


JMP 

DN87 



1150 

1151 

02112 

0 02 00723 


LDA 

K1Q5 



1151 

1152 

02113 

0 04 00653 


STA 

IM 

IM * CPX 


1152 

1153 

02114 

0 02 01475 


LDA 

TID 

INTERCHANGE 


1153 

1154 

02115 

0 13 03637 


IMA 

TIDB 

3 CELLS 


1154 

1155 

02116 

0 04 01475 


STA 

TID 

TID 


1155 

1156 

02117 

0 02 01476 


LDA 

TlD+1 

WITH 


1156 

1157 

02120 

0 13 03640 


IMA 

TIDB*1 

3 CELLS 


1157 

1158 

02121 

0 04 01476 


STA 

T 10*1 

OF 


1158 

1159 

02122 

0 02 01477 


LDA 

TI D*2 

TIDB 


1159 

1160 

02123 

0 13 03641 


IMA 

TIDB*2 



1160 

1161 

02124 

0 04 01477 


STA 

TID*2 



1161 

1162 

02125 

0 10 02555 


JST 

IPQQ 

) • I NPUT OPERATOR 


1162 

1163 

02126 

0 01 02000 


JMP 

DN70 

GO TO DN7Q (21) 


1163 

1164 

02127 

0 02 00607 

DN87 

LDA 

TC 

IF TC a , 


1164 

1165 

02130 

0 07 00672 


SUB 

K5 



1165 

1166 

02131 

100040 


SZE 




1166 

1167 

02132 

0 01 01772 


JMP 

DN67 

TID-BAR ■ TID 


1167 

1168 

02133 

0 02 01475 


LDA 

TID 

F6 ■ 1 


1168 

1169 

02134 

0 04 03637 


STA 

TIDB 

GO TO DN01 (1) 


1169 

1170 

02135 

0 02 01476 


LDA 

T I D ♦ 1 



1170 

1171 

02136 

0 04 03640 


STA 

TJDB*1 

ELSE # GO TO UN67 

(18) 

1171 

1172 

02137 

0 02 01477 


LDA 

TID*2 



1172 

1173 

02140 

0 04 03641 


STA 

TIDB*2 



1173 

1174 

02141 

0 02 00717 


LDA 

K101 



1174 

1175 

02142 

0 04 01516 


STA 

F6 



1175 

1176 

02143 

0 01 01522 


JMP 

DNO 1 



1176 
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1177 

02144 

0 02 01512 

DN90 

IDA 

F 2 

IF F2« 0, GO TO DN9A (10) 

1178 

02145 

101040 


SNZ 



1179 

02146 

0 01 02152 


JHP 

DN9A 


1180 

02147 

0 02 01513 


IDA 

F3 

F 3 * • F3 

1181 

02150 

140407 


TCA 



1182 

02151 

0 04 01513 


STA 

F 3 


1183 

02152 

0 02 01513 

DN9A 

IDA 

F3 

F 4 » F3 - F4 

1184 

02153 

0 07 01514 


SUB 

F 4 


1185 

02154 

0 04 01514 


STA 

F 4 


1186 

02155 

0 02 00676 


LDA 

K 12 

F2 » EXP, BIAS ♦ MANTISSA 

1187 

02156 

0 04 01512 


STA 

f 2 


1188 

02157 

0 02 01475 


LDA 

TID 

IF TID ■ 0, 

1189 

02160 

0 06 01476 


ADD 

T I D ♦ 1 


1190 

02161 

0 06 01477 


ADD 

T I D ♦ 2 

GO TO DN85 ( 13 ) 

1191 

02162 

101040 


SNZ 



1192 

02163 

0 01 02100 


JMP 

DN85 


1193 

02164 

0 02 01477 

DN9C 

LDA 

TID + 2 


1194 

02165 

0414 77 


lgl 

1 

NORMALIZE id 

1195 

02166 

100400 


SPL 



1196 

02167 

0 01 02176 


JMP 

DN9D 

ID IS NORMALIZED 

1197 

02170 

0 10 03202 


JST 

SFf 


1198 

02171 

0 001475 


DAC 

10 


1199 



• 



F2 ■ F2 - « SHIFTS 

1200 

02172 

0 02 01512 


LDA 

F2 


1201 

02173 

0 07 00717 


sue 

K 101 


1202 

02174 

0 04 01512 


STA 

F2 


1203 

02175 

0 01 02164 


JMP 

DN9C 

CONTINUE NORMALIZE LOOP 

1204 

02176 

0 02 01514 

DN90 

LDA 

F 4 


1205 

02177 

0 11 00787 


CAS 

ZERO 


1206 

02200 

0 01 02232 


JMP 

DN9E 


1207 

02201 

0 01 02250 


JMP 

DN9G 

FINISHED E FACTOR LOOP 

1208 

02202 

0 12 01514 


IRS 

F4 


1209 

02203 

101000 


NOP 


F4 * F4 

1210 

02204 

0 02 01505 


LDA 

K155 

DIVIDE LOOP COUNTER 

1211 

02205 

0 04 01504 


STA 

T ! DN 


1212 

noon a 

q in 0 X ^57 


1 CT 

VV i 

COT 

W < * 1 

DinUT currr Tin 

n 4 wi' m i i r f f A u 

1213 

02207 

0 001475 


DAC 

TID 



RAGS 34 


1177 

1178 

1179 

1180 
1181 
1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 

1204 

1205 

1206 

1207 

1208 
i2Q9 
1210 

1211 

104 0 

1213 
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1214 

02210 

0 

10 03157 


JST 

SRT 


1214 

1215 

02211 

0 

001475 


DAC 

T 10 


1215 

1216 

02212 

0 

10 03202 

DND1 

JST 

SFT 


1216 

1217 

02213 

0 

001475 


DAC 

TID 


1217 

1216 

02214 

0 

02 01477 


LDA 

TID*2 


1218 

1219 

02215 

0 

07 01506 


SUB 

K156 

10 AT B»4 

1219 

1220 

02216 

101400 


SNI 



1220 

1221 

02217 

0 

04 01477 


STA 

T I D ♦ 2 


1221 

1222 

02220 

101400 


SHI 



1222 

1223 

02221 

0 

12 01475 


IRS 

TID 


1223 

1224 

02222 

0 

12 01504 


IRS 

TJDN 


1224 

1225 

02223 

0 

01 02212 


JMP 

DND1 

REDUCE DIVIDE COUNTER 

1225 

1226 

02224 

0 

10 03202 


JST 

SFT 


1226 

1227 

02225 

0 

001475 


DAC 

TID 


1227 

1228 

02226 

0 

02 01477 


LDA 

TID*2 


1228 

1229 

02227 

0 

03 01507 


ANA 

K157 


1229 

1230 

02230 

0 

04 01477 


STA 

TID*2 


1230 

1231 

02231 

0 

01 02164 


JMP 

DN9C 


1231 

1232 

02232 

0 

07 00717 

DN9E 

SUB 

Kid 


1232 

1233 

02233 

0 

04 01514 


STA 

F4 

F 4 « F4*l 

1233 

1234 

02234 

0 

02 015i2 


LDA 

F2 

F2 ■ F 2*4 

1234 

1235 

02235 

0 

06 00722 


ADD 

K104 


1235 

1236 

02236 

0 

04 01512 


STA 

F2 


1236 

1237 

02237 

0 

10 03157 


JST 

SRT 


1237 

1238 

02240 

0 

001475 


DAC 

ID 


1238 

1239 

02241 

0 

10 02754 


JST 

M0V3 


1239 

1240 

02242 

0 

10 03157 


JST 

SRT 

ID ■ I D* 10 

1240 

1241 

02243 

0 

001475 


DAC 

ID 


1241 

1242 

02244 

0 

10 03157 


JST 

SRT 


1242 

1243 

02245 

0 

001475 


DAC 

ID 


1243 

1244 

02246 

0 

10 02653 


JST 

AD3 

ADD THREE WORD INTEGERS 

1244 

1245 

02247 

0 

01 02164 


JMP 

DN9C 


1245 

1246 




• 


CONVERT 

THREE WORD INTEGER TO INTERNAL FORMAT 

1246 

1247 

02250 

0 

02 01477 

DN9G 

LDA 

T I D ♦ 2 


1247 

1248 

02251 

000201 


I AB 



1248 

1249 

02252 

0 

02 01512 


LDA 

F2 


1249 

1250 

02253 

0401 70 


LRS 

8 


1250 
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1251 

02254 

101040 

SNZ 


1252 

02255 

0 01 02260 

JMP 

*♦3 

1253 

02256 

0 10 03116 

JST 

EROO 

1254 

02257 

141705 

SCI 

liCE 

1255 

02260 

000201 

IAB 


1256 

02261 

0 13 01477 

IMA 

T I D ♦ 2 

1257 

02262 

000201 

IAB 


1258 

02263 

0 02 01476 

LDA 

TID*1 

1259 

02264 

0414 77 

LGL 

1 

1260 

02265 

0402 70 

LRR 

8 

1261 

02266 

0 04 01476 

STA 

T I D ♦ 1 

1262 

02267 

0402 67 

LRR 

9 

1263 

02270 

O 02 01475 

LDA 

TID 

1264 

02271 

0414 77 

LGL 

1 

1265 

02272 

0402 71 

LRR 

7 

1266 

02273 

0 04 01475 

STA 

TID 

1267 

02274 

0 02 01512 

LDA 

F2 

1268 

02275 

0404 70 

LGR 

8 

1269 

02276 

100040 

SZE 


1270 

02277 

0 01 01776 

JMP 

DN69 

1271 

02300 

0 01 02055 

JMP 

DN84 

1272 

02301 

0 04 00653 

DN9H STA 

IM 

1273 

02302 

0 02 00051 

LDA 

SPF 

1274 

02303 

0 07 00720 

SUB 

K102 

1275 

02304 

100040 

SZE 


1276 

02305 

0 02 00724 

LDA 

K106 

1277 

02306 

0 07 00742 

SUB 

K124 

1278 

02307 

0 06 01475 

ADD 

TID 

1279 

02310 

101400 

SMI 


1280 

02311 

0 01 02000 

JMP 

DN70 

1281 

02312 

0 02 01475 

LDA 

TID 

1282 

02313 

0 04 01520 

STA 

holf 

1283 

02314 

0 04 01513 

STA 

F3 

1284 

02315 

140407 

TCA 


1285 

02316 

101040 

SNZ 


1286 

02317 

0 01 02340 

JMP 

DN9K 

1287 

02320 

0 04 01512 

STA 

F2 


CONSTANT’S EXPONENT OVER 8 BITS (OVERFLOW) 


PACK UP TRIPLE PRECISION 
REAL CONSTANT 

GO TO DN69 (20) 

ELSE* GO TO Dn84 (12) 


HOLF«NO,OF HOLLERITH CHARS, 


FIELD WIDTH OF ZERO 

F2s -1(1 CHAR) OR -2(2 CHAR) 


1251 

1252 

1253 

1254 

1255 

1256 

1257 

1258 

1259 

1260 
1261 
1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1280 
1281 
1282 

1283 

1284 

1285 

1286 
1287 
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1288 

02321 

0 10 02741 


JST 

BLNK 

1289 

02322 

0 001475 


DAC 

T ID 

1290 

02323 

0 10 01066 

DN9J 

JST 

ICUO 

1291 

02324 

0 10 03055 


JST 

PACK 

1292 

02325 

0 12 01512 


IRS 

F2 

1293 

02326 

0 01 02323 


JMP 

DN9J 

1294 

02327 

0 02 01513 


LDA 

F3 

1295 

02330 

0 03 00717 


ANA 

KlOl 

1296 

02331 

101040 


SNZ 


1297 

02332 

0 01 02335 


JMP 

*♦3 

1298 

02333 

0 02 00673 


LDA 

K6 

1299 

02334 

0 10 03055 


JST 

PACK 

1300 

02335 

0 12 00653 


IRS 

IM 

1301 

02336 

0 10 01256 

DN9M 

JST 

CHOO 

1302 

02337 

0 01 01772 


JMP 

DN67 

1303 

02340 

0 10 03116 

DN9K 

JST 

EROO 

1304 

02341 

144306 


BCI 

1,HF 

1305 

02342 

0 02 00723 

DN9N 

LDA 

K105 

1306 

02343 

0 04 00607 


STA 

TC 

1307 

02344 

140040 


CRA 


1308 

02345 

0 04 00653 


STA 

IM 

1309 

02346 

0 01 01773 


JMP 

DN68 

1310 

02347 


DNX1 

BSS 

3 

1311 

02352 

0 000000 

DNX2 

DAC 

** 

1312 

02353 

•0 01 02352 


JMP* 

*•1 

1313 



• 



1314 



* 



1315 



• 



1316 



• 


•INPUT ITEM* 

1317 



• 



1318 



• 


INPUTS AND ASSI 

1319 



* 



1320 

02354 

0 000000 

1100 

DAC 

• * 

1321 

02355 

0 10 01521 


JST 

DNOO 

1322 

02356 

101040 


SNZ 


1323 

02357 

-0 01 02354 


JMP* 

1100 

1324 

02360 

0 10 03241 


JST 

ASO 0 


SET I D # I D + l ( I D + 2 TO ZERO 1288 

1289 

INPUT COLUMN (INCLUDING BLANKS) 1290 

PACK CHARACTERS 2 PER WORD 1291 

REDUCE CHARACTER COUNT 1292 

INPUT AND PACK MORE CHARACTERS 1293 

F3* 0 IF 2 CHAR. HAVE BEEN' INPUT 1294 

1295 

1296 

1297 

* * 240 (Sp) 1290 

SHIFT A SPACE INTO THE LAST WORD 1299 

1300 

INPUT THE TERMINATING CHARACTER 1301 

FINISH OPERATOR AND EXIT 13Q2 

1303 

1304 

SET , NOT , OPERATOR (TC«5) 1305 

SET .NOT, OPERAfOR <Tc«5) 1306 

1307 

IM«Q = UNDEFINED 1308 

1309 

1310 

OVERFLOW FLAG 1311 


1312 

1313 

1314 

1315 

1316 

1317 


ITEM (IF ONE EXISTS) 1310 

1319 

1320 

INPUT DNA 1321 

IF (A) * 0 1322 

RETURN 1323 

NO, ASSIGN ITEM 1324 
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1325 

02361 

0 02 00653 


LDA 

IM 



1325 

1326 

02362 

-0 01 02354 


JMP* 

1100 


RETURN (A) ■ IM 

1326 

1327 



* 





1327 

1328 



• 





1328 

1329 



• 


•• 


» 

1329 

1330 



• 


•INPUT OPERAND* 

1330 

1331 

1332 



« 

• 


• • 

EXIT 

WITH ITEM MODE IN A (TC SET TO . IF NO 

1331 

1332 

1333 



• 



OPERAND) 


1333 

1334 



# 





1334 

1335 

02363 

0 000000 

OPOO 

DAC 

• * 


INPUT OPERAND 

1335 

1336 

02364 

0 10 02354 


JST 

ItOO 


INPUT ITEM 

1336 

1337 

02365 

100040 


SZE 



IF IM a 0, SKIP 

i337 

1338 

02366 

-0 01 02363 


JMP* 

OPOO 


ELSE (A) s IM, RETURN 

1330 

1339 

02367 

0 02 00675 


LDA 

K10 


TC « , 

1339 

1340 

02370 

0 04 00607 


STA 

TC 


f A) » 0 

1340 

1341 

02371 

140040 


CRA 




1341 

1342 

02372 

•0 01 02363 


JMP* 

OPOO 


RETURN 

1342 

1343 



• 





1343 

1344 



• 





1344 

1345 



* 


«• 



1345 

1346 



• 


•INPUT NAME* 


1346 

1347 



• 


• • 



1347 

1348 



• 


INPUT 

OPERAND AND 

ENSURE THAT IT IS A NAME 

1346 

1349 

1350 

02373 

0 000000 

• 

NAOO 

DAC 

• • 


INPUT NAME 

1349 

1390 

1351 

02374 

0 10 02363 


JST 

OPOO 


INPUT OPERAND 

1351 

1352 

02375 

0 02 90573 


LDA 

NT 


IF NT a 1, 

1352 

1353 

02376 

101040 


SNZ 




1393 

1354 

02377 

0 01 02402 


JMP 

NA1Q 



1354 

1355 

02400 

0 10 03116 


JST 

EROO 



1355 

1356 

02401 

0 00 00011 


PZE 

9 



1356 

1357 

02402 

0 02 00653 

NA10 

LDA 

IM 


(A) * IM 

1357 

1350 

02403 

-0 01 02373 


JMP* 

NAOO 


RETURN 

1358 

1359 



• 





1359 

i *An 



# 






1361 



• 


#♦ 


» 

Av vy 

1361 
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1362 



« 


1363 



• 


1364 



« 


1365 



• 


1366 



• 


1367 

02404 

0 000000 

IG00 

DAC 

1368 

02405 

0 10 01521 


JST 

1369 

02406 

0 02 01511 


LDA 

1370 

02407 

100040 


SZE 

1371 

02410 

0 01 02430 


JMP 

1372 

02411 

0 02 00573 


LDA 

1373 

02412 

101040 


SNZ 

1374 

02413 

0 01 02430 


JMP 

1375 

02414 

0 02 00653 


LDA 

1376 

02415 

0 07 00717 


SUB 

1377 

02416 

100040 


SZE 

1378 

02417 

0 01 02430 


JMP 

1379 

02420 

0 02 01476 


LDA 

1380 

02421 

100040 


SZE 

1381 

02422 

0 01 02430 


JMP 

1382 

02423 

0 02 01477 


LDA 

1383 

02424 

1QUQ4Q 


SZE 

1384 

02425 

0 01 02430 


JMP 

1385 

02426 

0 02 01475 

IG10 

LDA 

1386 

02427 

*0 01 02404 


JMP 

1387 

02430 

0 10 03116 

IG20 

JST 

1388 

02431 

144716 


BC1 

1389 



« 


1390 



* 


1391 



• 


1392 



• 


1393 



• 


1394 



• 


1395 

02432 

0 000000 

IVOO 

DAC 

1396 

02433 

0 10 02363 


JST 

1397 

02434 

0 10 02635 


JST 

1398 

02435 

0 10 03642 


JST 


•INPUT INTEGER# 

INPUT ITEM AND ENSURE THAT IT IS AN 
GREATER THAN ZERO 


*• 

INPUT INTEGER 

DNOO 

INPUT - DNA 

FI 



IF FI * 0, 

I G20 

AND NT * 1, 

NT 

AND IM a INT, 


AND TID L2##15, 

IG20 

GO TO IG10 

IM 

ELSE, GO TO IG20 

K101 


IG20 


T I D*1 


I G20 


T I D ♦ 2 


IG20 


TID 


IGOO 


ERQO 

ERROR 

1 # I N 

INTEGER REQUIRED 


•INPUT 

INTEGER VAR/CON# 

• • 

OPOO 

INPUT OPERAND 

ITOO 

INTER TEST 

TVOO 

TAG VARIABLE 


1362 

1363 

INTEGER CONSTANT 1364 

1365 

1366 

1367 

1368 

1369 

1370 

1371 

1372 

1373 

1374 

1375 

1376 

1377 

1378 

1379 

1380 

1381 

1382 

1383 

1384 

1385 

1386 

1387 

1388 

1389 

1390 

1391 

1392 

1393 

1394 

1395 

1396 

1397 

1398 
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1399 

1400 

1401 

1402 

1403 

1404 

1405 


02436 -0 01 02432 


JMP* IV00 


EXIT 


•INPUT INTEGER VARIABLE# 


1406 

02437 

0 000000 

1 R00 

DAC 

• * 

1407 

02440 

0 10 02432 


JST 

IVOO 

1408 

02441 

0 10 02611 


JST 

NCOO 

1409 

02442 

-0 01 02437 


JMP* 

IRQQ 

1410 



• 



1411 



• 



1412 



* 


• 

1413 



• 


• 

1414 



• 


• 

1415 



« 


NUMB 

1416 



• 



1417 



• 



1418 

02443 

0 000000 

ISOO 

DAC 

• • 

1419 

02444 

140040 

IS04 

CRA 


1420 

02445 

0 04 00573 


STA 

NT 

1421 

02446 

0 04 00653 


STA 

IM 

1422 

02447 

0 04 00655 


STA 

IU 

1423 

02450 

0 04 00575 


STA 

NTID 

1424 

02451 

0 02 02516 


LDA 

K?9 

1425 

02452 

0 10 03055 


JST 

PACK 

1426 

02453 

0 10 01342 

IS1Q 

JST 

1000 

1427 

02454 

100040 


SZE 


1428 

02455 

0 01 02471 


JMP 

IS20 

1429 

02456 

0 02 00575 


LDA 

NTID 

1430 

02457 

0 07 00724 


SUB 

K106 

1431 

02460 

101400 


SMI 


1432 

02461 

0 01 02475 


JMP 

IS22 

1433 

02462 

0 02 00607 


LDA 

TC 

1434 

4 4 1C 

02463 

0 10 03055 


JST 

PACK 


02464 

n rto n 4 a e 

V V * 1 f J 


LDA 

T I D 


INPUT INT VAR 
INPUT INT VAR/CON 
NON-CONSTANT TEST 
RETURN 


•INPUT STATEMENT NUMBER# 


TO NUMERIC 


IU « IM * IT * 0 

PUT LEADING IN STATEMENT NO, 


INPUT DIGIT 

NOT A DIGIT GO TO IS2Q 


PACK TC TO ID - LEGAL ST, NO, CHA 


1399 

1400 

1401 

1402 

1403 

1404 

1405 

1406 

1407 

1408 

i4Q9 

1410 

1411 

1412 

1413 

1414 

1415 

1416 

1417 

1418 

1419 

1420 

1421 

1422 

1423 

1424 

1425 

1426 

1427 

1428 

1429 

1430 

1431 

1432 

1433 

1434 

1435 



HONEYWELL 


COMPUTER CONTROL DIVISION 


PROGRAM DOCUMENTATION 


* C210-001-66Q1 CFRTN) 30 NQ.18Q46300U Rtv, D PA^t 41 


1436 

02465 

0 11 02517 


CAS 

K79X 


1436 

1437 

02466 

0 01 02453 


JMP 

IS10 


1437 

1438 

02467 

0 01 02444 


JMP 

I S04 

IGNORE LEAD ZERO ON ST, NO, 

1438 

1439 

02470 

0 01 02453 


JMP 

IS10 


1439 

1440 

02471 

0 02 00575 

IS20 

LDA 

NT ID 


1440 

1441 

02472 

0 07 00717 


SUB 

KlOl 


1441 

1442 

02473 

101400 


SMI 



1442 

1443 

02474 

0 01 02477 


JMP 

I S25 


1443 

1444 

02475 

0 10 03116 

I S22 

JST 

EROO 


1444 

1445 

02476 

151724 


BCI 

1 # ST 

illegal STATEMENT number FORMAT 

1445 

1446 

02477 

0 10 03241 

IS25 

JST 

ASO 0 

ASSIGN ITEM 

1446 

1447 

02500 

0 10 02672 


JST 

STXA 


1447 

1448 

02501 

1 02 15401 


LDA 

DP*1 # 1 


1448 

1449 

02502 

0 03 00730 


ANA 

Kill 


1449 

1450 

02503 

1 04 15401 


STA 

DP*1 $ 1 

IU * 0 

1450 

1451 

02504 

0 02 00630 


LDA 

AF 

ADDRESS FIELD IS 

1451 

1452 

02505 

0 11 00055 


CAS 

XST 

LE XST - ALREADY ASSIGNED 

1452 

1453 

02506 

-0 01 02443 


JMP* 

I soo 


1453 

1454 

02507 

-0 01 02443 


JMP* 

ISOO 

OK - OTHERWISE 

1454 

1455 

02510 

0 02 00631 


LDA 

AT 

MUST HAVE STR-ABS OTHERWISE 

1455 

1456 

02511 

0 11 00720 


CAS 

K102 


1456 

1457 

02512 

0 01 02514 


JMP 

*♦2 


1457 

1458 

02513 

-0 01 02443 


JMP* 

ISOO 


1458 

1459 

02514 

0 10 03116 


JST 

EROO 


1459 

1460 

02515 

151316 


BCI 

1,RN 

REFERENCE TO A SPECIFICATION STMNT NUMBER 

1460 

1461 

02516 

000337 

K79 

OCT 

337 


1461 

1462 

02517 

157660 

K79X 

OCT 

157660 


1462 

1463 



• 




1463 

1464 

02520 

0 000000 

SY00 

DAC 

• • 

INPUT SYMBOL 

1464 

1465 

02521 

0 02 00717 


LDA 

KlOl 


1465 

1466 

02522 

0 04 00574 


STA 

NfF 

NTF- NOT 0 - DON’T SET IU IN ASQQ 

1466 

1467 

02523 

0 10 02373 


JST 

NAO 0 

INPUT NAME 

1467 

1468 

02524 

•*0 01 02520 


JMP* 

SYOO 

EXIT 

1468 

1469 



* 




1469 

1470 



* 




1470 

1471 



* 


•EXAMINE NEXT 

CHARACTER* 

1471 

1472 



* 




1472 
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1473 



• 


CHECK NEXT CHAR FOR DIGIT (BACKUP ONE 

COL* THEN EXIT) 

1473 

1474 



• 





1474 

1475 

02525 

0 000000 

XN00 

DAC 

• • 



1475 

1476 

02526 

0 10 01342 


JST 

I D00 

INPUT DIGIT 


1476 

1477 

02527 

0 10 01251 


JST 

UCOO 

UNINPUT COLUMM 


1477 

1478 

02530 

•0 01 02525 


JMP* 

XNOO 



1478 

1479 

02531 

152322 

K1 

SCI 

3. TRUE, 



1479 


02532 

152705 








02533 

127240 







1480 

02534 

143301 

K2 

BCI 

3, FALSE, 



1480 


02535 

146323 








02536 

142656 







1481 

02537 

000247 

K3 

OCT 

247 



1481 

1482 

02540 

147317 

KNOT 

BCI 

3, NOT, 

CONSTANT FOR .NOT. TEST 

1482 


02541 

152256 








02542 

120240 







1483 

02543 

000304 

Kll 

OCT 

304 

OD 


1483 

1484 

02544 

000310 

K14 

OCT 

310 

OH 


1484 

1485 

02545 

000316 

K62 

OCT 

316 

ON 


1485 

1486 

02546 

000336 

K64 

OCT 

336 

0) 


I486 

1487 



• 





1487 

1488 



• 





1488 

1489 



* 





1489 

1490 



• 


•ALL CHARACTER 

TEST* 


1490 

1491 

1492 



• 

* 





1491 

1492 

1493 

02547 

0 000000 

TSOO 

DAC 

• « 

TEST (A) AGAINST TC 


1493 

1494 

02550 

0 07 00607 


SUB 

TC 



1494 

1495 

02551 

101040 


SNZ 




1495 

1496 

02552 

-0 01 02547 


JMP# 

TSOO 

RETURN 


1496 

1497 

02553 

0 10 03116 


JST 

EROO 

TO ERROR TEST 


1497 

1498 

02554 

141710 


BCI 

1 , CH 

IMPROPER TERMINATING 

CHARACTER 

1498 

1499 



♦ 





1499 

1500 



• 





1500 

1501 



• 



>•••• 


1501 

1502 



# 


*)- INPUT OPERATOR* 


1502 

1503 



« 





1503 
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1504 



• 




1504 

1505 

02555 

0 000000 

IP00 

DAC 

*# 


1505 

1506 

02556 

0 02 00671 


LDA 

K4 

TEST - ) 

1506 

1507 

02557 

0 10 02547 


JST 

TSOO 


1507 

1508 

02560 

0 10 01256 


JST 

CHQQ 

INPUT CHAR 

150« 

1509 

02561 

0 10 01412 


JST 

FNQO 

FINISH OPERATOR 

1509 

1510 

02562 

0 02 00642 


LDA 

8 

B = 8-16 

1510 

1511 

02563 

0 07 00726 


SUB 

K109 


1511 

1512 

02564 

0 04 00642 


STA 

B 


1512 

1513 

02565 

140040 


CRA 


(A) s 0 

1513 

1514 

02566 

-0 01 02555 


JMP* 

IPOO 

RETURN 

1914 

1515 



• 




1515 

1516 



• 




1516 

1517 



« 




1517 

1516 



• 


81 

COMMA OR C/R TST 

1518 

1519 

02567 

0 02 00752 

81 

LDA 

K134 

IF TC = * , * (CONVERTED TO 17) 

1519 

1520 

02570 

0 07 00607 


sue 

TC 


1520 

1521 

02971 

101040 


SNZ 



1521 

1522 

02572 

•0 01 04600 


JMP# 

A9T2 

GO TO SIDSW 

1522 

1523 

02573 

0 01 04266 


JMP 

Al 

ELSE, GO TO C/R TEST 

1523 

1524 



• 




1524 

1525 



• 




1525 

1526 

02574 

0 000000 

NROO 

DAC 

• » 

NON-REL TEST 

1526 

1527 

02575 

0 02 00631 


LDA 

AT 


1527 

1528 

02576 

0 07 00717 


SUB 

KlOl 

IF AT * 1 GO TO ERROR- 

1528 

1529 

02577 

100040 


SZE 


TEST 

1529 

1530 

02600 

-0 01 02574 


JMP# 

NROO 

RETURN 

1530 

1531 

02601 

0 10 03116 


JST 

EROO 

ERROR TEST ROUTINE 

1531 

1532 

02602 

146723 


BC! 

1 , MS 

MULTIPLY DEFINED STATEMENT NUMBER 

1532 

1533 



• 




1533 

1534 



• 




1534 

1535 



• 




1535 

1536 



• 


•NO USAGE 

TEST • 

1536 

1537 



• 



>••••• 

1537 

1538 



• 




1538 

1539 

02603 

0 000000 

NUQO 

DAC 

• # 

NO usage test 

1539 

1540 

02604 

0 02 00655 


LDA 

IU 


1540 
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1541 

02605 

101040 


SNZ 


IF IU NOT « 0, TO ERROR 

1542 

02606 

-0 01 02603 


JMP* 

NUOQ 

RETURN 

1543 

02607 

0 10 03116 


JST 

ERUQ 

ERROR TEST 

1544 

1545 

02610 

147325 

ft 

SCI 

1 * NU 

NAME ALREADY BEING USED 

1546 



* 




1547 



• 




1548 



• 


♦NON-CONSTANT 

test* 

1549 



• 



>••••* 

1550 



• 




1551 

02611 

0 000000 

NC00 

DAC 

•« 

NON CONSTANT TEST 

1552 

02612 

0 02 00573 


LDA 

NT 


1553 

02613 

1Q1Q4Q 


SNZ 


IF NT NOT 8 0, TO ERROR TEST 

1554 

02614 

-0 01 02611 


JMP* 

NCOO 

RETURN 

1555 

02615 

0 10 03116 


JST 

ERUO 

ERROR TEST 

1556 

1557 

02616 

147303 


BCI 

1 * NC 

CONSTANT MUST BE PRESENT 

1558 



• 




1559 



• 




1560 



• 


♦NON SUBPROGRAM TEST* 

1561 



• 




1562 



• 




1563 

02617 

0 000000 

NSOO 

DAC 

»• 

NON SUBPROGRAM TEST 

1564 

02620 

0 02 00655 


LDA 

IU 


1565 

02621 

0 07 00717 


SUB 

K101 

IF IU 8 1, QO TO- 

1566 

02622 

100040 


SZE 


ERROR TEST 

1567 

02623 

-0 01 02617 


JMP* 

NSOO 

RETURN 

1568 

02624 

0 10 03116 


JST 

ERQQ 

ERROR TEST 

1569 

02625 

147323 


BCI 

1 » NS 

SUBPROGRAM NAME NOT ALLOWED 

1570 



• 




1571 



• 




1572 



• 




1573 



• 


•ARR TEST* 


1574 



• 




1575 



• 




1576 

02626 

0 000000 

ATOO 

DAC 

#* 

array test 

1577 

02627 

0 02 00655 


LDA 

IU 



PAGfc 44 


1541 

1542 

1543 

1544 

1545 

1546 

1547 

1548 

1549 

1550 

1551 

1532 

1533 
1554 
1355 

1556 

1557 

1558 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1 * 7a 

1377 
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1578 

02630 

0 07 00721 


SUB 

K103 

IF IU « 3, GQ TO 


1578 

1579 

02631 

101040 


SNZ 




1579 

1580 

02632 

-0 01 02626 


JMP* 

ATOO 

RETURN 


1580 

1581 

02633 

0 10 03116 


JST 

EROO 

ERROR TEST 


1581 

1582 

02634 

140722 


BC I 

1# AR 

ITEM NOT AN ARRAY NAME 


1582 

1583 



• 





1583 

1584 



• 





1584 

1585 



• 





1585 

1586 



* 


•INTEGER 

TEST* 


1586 

1587 



• 



!••••• 


1587 

1588 



• 





1588 

1589 

02635 

0 000000 

IT00 

DAC 

• • 

INTEGER TEST 


1589 

1590 

02636 

0 02 00653 


LDA 

IM 



1590 

1591 

02637 

0 07 00717 


SUB 

K 1 0 1 

IF IM * 1, GO TO- 


1591 

1592 

02640 

101040 


SNZ 


ERROR ROUTINE, ELSE 


1592 

1593 

02641 

-0 01 02635 


JMP* 

ITOO 

RETURN 


1593 

1594 

02642 

0 10 03116 


JST 

EROO 

TO ERROR TEST 


1594 

1595 

02643 

144724 


BC 1 

1 » I T 

ITEM NOT AN INTEGER 


1595 

1596 



• 





1596 

1597 



• 





1597 

1598 

02644 

0 000000 

T A0 0 

DAC 

• * 



1598 

1599 

02645 

0 02 00631 


LDA 

AT 

STRING-ABS TEST 


1599 

1600 

02646 

0 07 00720 


SUB 

K102 



1600 

1601 

02647 

101040 


SNZ 




1601 

1602 

02650 

-0 01 02644 


JMP* 

TAOO 



1602 

1603 

02651 

0 10 03116 


JST 

EROO 



1603 

1604 

02652 

147322 


8CI 

1 # NR 

ITEM NOT A RELATIVE VARIABLE 


1604 

1605 



• 





1605 

1606 



• 





1606 

1607 



• 





1607 

1608 



• 





1608 

1609 



• 





1609 

1610 



• 





1610 

1611 



• 





1611 

1612 



• 





1612 

1613 

02653 

0 000000 

AD3 

DAC 

• ft 

ADD T*U THREE wQRD INTEGERS, 


1613 

1614 

02654 

0 02 01475 


LDA 

TID 



1614 
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1615 

02655 

0 06 02347 


ADD 

DNX1 


1615 

1616 

02656 

140320 


CSA 



1616 

1617 

02657 

0 04 01475 


STA 

TID 


1617 

1616 

02660 

0 02 01476 


LOA 

T I D ♦ 1 


1618 

1619 

02661 

141216 


ACA 



1619 

1620 

02662 

0 06 02350 


ADD 

DNX1#1 


1620 

1621 

02663 

140320 


CSA 



1621 

1622 

02664 

0 04 01476 


STA 

T I D ♦ 1 


1622 

1623 

02665 

0 02 01477 


LDA 

T I D*2 


1623 

1624 

02666 

141216 


ACA 



1624 

1625 

02667 

0 06 02351 


ADD 

DNX1 + 2 


1625 

1626 

02670 

0 04 01477 


STA 

T I D*2 


1626 

1627 

02671 

•0 01 02653 


JMP* 

AD3 


1627 

1628 



* 




1628 

1629 



• 




1629 

1630 



# 




1630 

1631 



• 


• ASS 1 QN 

INDEX REGISTER# 

1631 

1632 



# 




1632 

1633 



• 




1633 

1634 

02672 

0 000000 

STXA 

DAC 

• t 


1634 

1635 

02673 

0 02 00040 


LDA 

A 


1635 

1636 

02674 

0 04 00000 


STA 

0 


1636 

1637 

02675 

-0 01 02672 


JMP# 

STXA 


1637 

1638 

02676 

0 000000 

STXI 

DAC 

• # 


1638 

1639 

02677 

0 02 00041 


LDA 

I 


1639 

1640 

02700 

0 04 00000 


STA 

0 


1640 

1641 

02701 

•0 01 02676 


JMP# 

STXI 


1641 

1642 

02702 

000016 

K153 

OCT 

16 


1642 

1643 

02703 

0 000000 

I MOO 

DAC 

• • 


1643 

1644 

02704 

0 04 02720 


STA 

TllM 

MULTIPLY A 8Y B 

1644 

1645 

02705 

0 02 00737 


LDA 

K120 

8-15 

1645 

1646 

02706 

0 04 02721 


STA 

T2IM 


1646 

1647 

02707 

14QQ4Q 


CRA 



1647 

1648 

02710 

140200 


RCB 


C BIT * 0 

1648 

1649 

02711 

0400 77 

I M10 

LRL 

1 

LOW BIT OF B INTO c 

1649 

1650 

02712 

i nn nn i 


gpr 


S K T P ip o - n 

UEn 

1651 

02713 

0 06 02720 


ADD 

T1IM 


1651 
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1652 

02714 

0 12 02721 


IRS 

T2IM 



1652 

1653 

02715 

0 01 02711 


JMP 

I Ml 0 



1653 

1654 

02716 

0410 62 


III 

14 



1654 

1655 

02717 

-0 01 02703 


JMP* 

IMOQ 

RETURN, RESUIT IN A 


1655 

1656 

02720 

0 00 00000 

T1IM 

PZE 

0 



1656 

1657 

02721 

0 00 00000 

T2IM 

PZE 

0 



1657 

1658 



• 





1658 

1659 



• 





1659 

1660 

02722 

0 000000 

NFQQ 

DAC 

• • 

CONSTRUCT EXTERNAL NAME 


1660 

1661 

02723 

0 02 02730 


IDA 

K80 

ENTRY FOR FORTRAN GENERATED 


1661 

1662 

02724 

0 04 00570 


STA 

NAMF 



1662 

1663 

02725 

0 02 02731 


IDA 

K81 

SUBROUTINE CALLS, 


1663 

1664 

02726 

0 04 00572 


STA 

NAMF *2 



1664 

1665 

02727 

-0 01 02722 


JMP# 

NF 0 0 



1665 

1666 

02730 

143244 

K8Q 

BC I 

1# F i 



1666 

1667 

02731 

120240 

K81 

BCI 

If 



1667 

1668 

02732 

000001 

KM92 

DEC 

1 

001 = INT 


1668 

1669 

02733 

000002 


DEC 

2 

010 * REA 


1669 

1670 

02734 

000001 


DEC 

1 

Oil * LOG 


1670 

1671 

02735 

000000 


DEC 

0 

- • 


1671 

1672 

02736 

000004 


DEC 

4 

101 * CPX 


1672 

1673 

02737 

000003 


DEC 

3 

110 = dbl 


1673 

1674 

02740 

000003 


OCT 

3 

111 * HOL 


1674 

1675 



* 





1675 

1676 



• 





1676 

1677 

02741 

0 000000 

BLNK 

DAC 

• • 

CLEAR A 3/36 


1677 

1678 

02742 

0 10 03007 


JST 

SAV 

AREA TO ZEROS 


1678 

1679 

02743 

-0 02 02741 


IDA* 

BINK 



1679 

1680 

02744 

0 04 00000 


STA 

XR 



1680 

1681 

02745 . 

140040 


CRA 


CLEAR 3 WORDS OF MEMORY 


1681 

1682 

02746 

1 04 00001 


STA 

1*1 

PARAMETER INPUT ADDRESS TO 0 


i662 

1683 

02747 

1 04 00002 


STA 

2 * 1 



1683 

1684 

02750 

1 04 00000 


STA 

0,1 



16B4 

1685 

02751 

0 10 03016 


JST 

RST 



1685 

1686 

02752 

0 12 02741 


IRS 

BINK 



1686 

1687 

02753 

•0 01 02741 


JMP* 

BINK 

EXIT 


1687 

1688 



• 





1688 
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1689 



• 



1690 

02754 

0 000000 

MOV3 

DAC 

• • 

1691 

02755 

0 02 01475 


LDA 

TID 

1692 

02756 

0 04 02347 


STA 

DNX1 

1693 

02757 

0 02 01476 


LDA 

T 1 D ♦ 1 

1694 

02760 

0 04 02350 


STA 

DNX1*1 

1695 

02761 

0 02 01477 


LDA 

T ID*2 

1696 

02762 

0 04 02351 


STA 

DNX1*2 

1697 

02763 

-0 01 02754 


JMP* 

M0V3 

1698 



• 



1699 



• 



1700 



• 



1701 



• 



1702 

02764 

0 000000 

CIB 

DAC 

• • 

1703 

02765 

0 10 03007 


JST 

SAV 

1704 

02766 

-0 02 02764 


LDA* 

CIB 

1705 

02767 

0 04 03006 


STA 

CIBZ 

1706 

02770 

140040 


CRA 


1707 

02771 

0 07 00721 


SUB 

K103 

1708 

02772 

0 04 00000 


STA 

XR 

1709 

02773 

1 02 01504 

CIBB 

LDA 

IBUF *3# 1 

1710 

02774 

•0 07 03006 


SUB* 

CIBZ 

1711 

02775 

100040 


SZE 


1712 

02776 

0 01 03004 


JMP 

CIBD 

1713 

02777 

0 12 00000 


IRS 

XB 

1714 

03000 

0 01 02773 


JMP 

CIBB 

1715 

03001 

0 12 02764 

CIBC 

IRS 

CIB 

1716 

030 02 

0 10 03016 


JST 

RST 

1717 

03003 

•0 01 02764 


JMP* 

CIB 

1718 

03004 

0 12 02764 

Cl BD 

IRS 

CIB 

1719 

03005 

0 01 03001 


JMP 

CIBC 

1720 

03006 

0 000000 

CIBZ 

DAC 

• • 

1721 



• 



1722 



• 



1723 



• 



1724 



# 



1725 

03007 

0 000000 

SAV 

DAC 

## 
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1689 

MOVE 3-WORDS 



1690 

TO r EMU STORE 



1691 


1692 

1693 

1694 

1695 

1696 
1,697 
1698 
16*9 

1700 

1701 


COMPARE IBUF TO A CONSTANT 1702 

SAVE INDEX 1703 

♦ DDR OF C0N*3 , 0 1704 

1705 

1706 

XR*-3 1707 


1708 

1709 

1710 

1711 

1712 

1713 

1714 

1715 

RESTORE INDEX 1716 

i 7 1 7 

1718 

1719 

1720 

1721 

1722 

1723 

« ir»A 

1725 


SAVE INDEX REGISTER 
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1726 

03010 

0 

04 

03027 


STA 

SAVY 

1727 

03011 

0 

02 

00000 


LDA 

XR 

1728 

03012 

-0 

04 

03030 


STA* 

SAV9 

1729 

03013 

0 

12 

03030 


IRS 

SAV9 

1730 

03014 

0 

02 

03027 


LDA 

SAVY 

1731 

03015 

-0 

01 

03007 


JMP* 

SAV 

1732 

03016 

0 

000000 

RST 

DAC 

• t 

1733 

03017 

0 

04 

03027 


STA 

SAVY 

1734 

03020 

0 

02 

03030 


LDA 

SAV9 

1735 

03021 

0 

07 

00717 


SUB 

K101 

1736 

03022 

0 

04 

03030 


STA 

SAV9 

1737 

03023 

•0 

02 

03030 


LDA* 

SAV9 

1738 

03024 

0 

04 

00000 


STA 

XR 

1739 

03025 

0 

02 

03027 


LDA 

SAVY 

1740 

03026 

• 0 

01 

03016 


JMP* 

RST 

1741 

03027 

0 

00 

00000 

SAVY 

PZE 

0 

1742 

03030 

0 

003031 

SAV9 

DAC 

SAVX 

1743 

03031 




SAVX 

BSS 

20 

1744 





• 



1745 





# 



1746 

03055 

0 

000000 

PACK 

DAC 

• • 

1747 

03056 

0 

04 

03113 


STA 

PAK7 

1748 

03057 

0 

02 

00575 


LDA 

NTID 

1749 

03060 

101040 

PAK1 

SNZ 


1750 

03061 

0 

01 

03103 


JMP 

PAK4 

1751 

03062 

0400 

77 


LRL 

1 

1752 

03063 

0 

06 

03115 


ADD 

PAK9 

1753 

03064 

0 

04 

03114 


STA 

PAK8 

1754 

03065 

0 

02 

03113 


LDA 

PAK7 

1755 

03066 

000201 


IAB 


1756 

03067 

100400 


SPL 


1757 

03070 

0 

01 

03076 


JMP 

PAK3 

1758 

03071 

0410 

50 


LLL 

24 

1759 

03072 

0 

06 

00673 


ADD 

K8 

1760 

03073 

-0 

04 

03114 

PAK2 

STA* 

PAK8 

1761 

03074 

0 

12 

0Q$75 


IRS 

NTID 

1762 

03075 

•0 

01 

03055 


JMP* 

PACK 
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STACKED IN PUSH DOWN LIST 1726 

1727 

1728 

1729 

1730 

1731 

restore index register 1732 

1733 

UNSTACK PUSH DOWN LIST 1?34 

1735 

1736 

1737 

1738 

1739 

1740 

1741 


IS INITIATED BY AQ92 1742 

1743 

1744 

1745 

PLACE CHARACTER IN A 1746 

1747 

INTO ID - UPDATE 3 WORDS OF 1748 

1749 

ID 1750 


1751 

1752 

1753 

1754 

1755 

1756 

1757 

1758 

1759 

1760 

1761 

1762 
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1763 

03076 

0410 70 

PAK3 

LLL 

8 


1764 

03077 

-0 02 03114 


LDA# 

PAK8 


1765 

03100 

0404 70 


LGR 

8 


1766 

03101 

0410 70 


LLL 

8 


1767 

03102 

0 01 03073 


JMP 

PAK2 


1768 

03103 

0 02 03112 

PAK4 

LDA 

PAK6 


1769 

03104 

0 04 01475 


STA 

TID 


1770 

03105 

0 04 01476 


STA 

TID#1 


1771 

03106 

0 04 01477 


STA 

TID#2 


1772 

03107 

0 04 01500 


STA 

T IDO 


1773 

03110 

0 02 00575 


LDA 

NtlD 


1774 

03111 

0 01 03062 


JMP 

PAK1+2 


1775 

03112 

120240 

PAK6 

BC! 

1 # 


1776 

03113 

0 000000 

PAK7 

DAC 

#* 


1777 

03114 

0 000000 

PAK8 

DAC 

• • 


1778 

03115 

0 001475 

PAK9 

DAC 

TID 


1779 



• 




1780 



• 




1781 



• 




1782 



* 


•ERROR 

ROUTINE# 

1783 



• 




1784 



• 




1785 

03116 

0 000000 

ERQQ 

DAC 

«» 

ERROR ROUTINE 

1786 

03117 

0 02 03G3U 


LDA 

SAV9 


1787 

03120 

0 04 03031 


STA 

SAVX 


1788 

03121 

0 02 03156 


LDA 

ER93 

*-35 

1789 

03122 

0 04 00000 


STA 

0 

SET INDEX 

1790 

03123 

0 02 03155 


LDA 

ER91 

(*>(•> 

1791 

03124 

1 04 14745 


STA 

PRJ05.1 

SET •* INTO PRINT BUFFER 

1792 

03125 

0 12 00000 


IRS 

0 

SET COMPLETE PRINT BUFFER 

1793 

03126 

0 01 03124 


JMP 

• •2 


1794 

03127 

0 02 00662 


LDA 

CC 


1795 

03130 

0405 77 


ARS 

1 

CC S CC/2 

1796 

03131 

0 07 00717 


SUB 

K10 1 

*1 

1797 

03132 

100400 


SPL 



l7Qfl 

ft T4 

* Af\ t\A ft 


n a a 



1799 

03134 

0 04 00000 


STA 

XR 



1763 

1764 

1765 

1766 

1767 

1768 

1769 

1770 

1771 

1772 

1773 

1774 

1775 

1776 

1777 

1778 

1779 

1780 

1781 

1782 

1783 

1784 

1785 

1786 

1787 

1788 

1789 

1790 

1791 

1792 

1793 

1794 

1795 

1796 

1797 

4 «■ Aa 

A/ 70 

1799 
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1800 

03135 

0 02 00660 


LDA 

EBAR 

1801 

03136 

100400 


SPL 


1802 

03137 

0 01 03142 


JMP 

*♦3 

1803 

03140 

0 02 00761 


LDA 

KAEQ 

1804 

03141 

1 04 14703 


STA 

PRI«-1,1 

1805 

03142 

•0 02 03116 


LDA« 

EROO 

1806 

03143 

1 04 14702 


STA 

PRI # 1 

1807 

03144 

0 10 00000 


CALL 

F4SSYM 

1808 

03145 

0 014702 


DAC 

PRI 

1809 

03146 

0 10 14301 


JST 

PRSP 

1810 

03147 

0 02 00607 


LDA 

TC 

1811 

03150 

0 11 00756 

ER20 

CAS 

CRET 

1812 

03151 

0 01 03153 


JMP 

*♦2 

1813 

03152 

0 01 04353 


JHP 

C7 

1814 

03153 

0 10 012*6 


JST 

CHOO 

1815 

03154 

0 01 03150 


JMP 

ER20 

1816 

03155 

125252 

ER91 

BCI 

1,## 

1817 

03156 

177735 

ER93 

OCT 

177735 

1818 



• 



1819 



• 



1820 

03157 

0 000000 

SRT 

DAC 

*• 

1821 

03160 

0 10 03007 


JST 

SAV 

1822 

03161 

•0 02 03157 


LDA» 

SRT 

1823 

03162 

0 04 00000 


STA 

XR 

1824 

03163 

1 02 00000 


LDA 

0,1 

1825 

03164 

000201 


I AB 


1826 

03165 

1 02 00001 


LDA 

1,1 

1827 

03166 

0401 77 


LRS 

1 

1828 

03167 

0414 77 


LGL 

1 

1829 

03170 

000201 


iab 


1830 

03171 

1 04 00000 


STA 

0,1 

1831 

03172 

1 02 00002 


LDA 

2,1 

1832 

03173 

0401 77 


LRS 

1 

1833 

03174 

1 04 00002 


STA 

2,1 

1834 

03175 

000201 


IAB 


1835 

03176 

1 04 00001 


STA 

1,1 

1836 

03177 

0 10 03016 


JST 

RST 
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(NEGATIVE IF NOT WITHIN AN EQUIVALENCE ST , ) 18QU 
SKIP IF PROCESSING AN EQUIVALENCE STATEMENT 1801 

1802 

a’142721 (8<E)(Q) ) 1803 

1804 

1805 

SET ERROR TYPE LETTERS INTO THE BUFFER 1806 

PRINT THE BUFFER 1807 

1808 

SET PRINT BUFFER TO SPACES 1809 

1810 

INPUT CHARACTERS UNTIL C/K 1811 

1812 

GO TO STATEMENT INPUT 1813 

1814 

1815 
181fc. 

•35 1817 


1818 

1819 

1820 
1821 

SHIFT RIGHT ONE PLACE 1822 

TRIPLE PRECISION 1823 

1824 

1825 

1826 

1827 

1828 

1829 

1830 

1831 

1832 

1833 

1834 

1835 

1836 
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1837 

03200 

0 12 03157 


IRS 

SRT 

1838 

03201 

-0 01 03157 


JMP* 

SRf 

1839 



• 



1840 



• 



1841 

03202 

0 000000 

SFT 

DAC 

*• 

1842 

03203 

0 10 03007 


JST 

SAV 

1043 

03204 

-0 02 03202 


LDA* 

SFT 

1844 

03205 

0 04 00000 


STA 

XR' 

1845 

03206 

1 02 00000 


LDA 

0,1 

1846 

03207 

000201 


IAB 


1847 

03210 

1 02 00001 


LDA 

1,1 

1848 

03211 

0411 77 


LLS 

1 

1849 

03212 

140320 


CSA 


1850 

03213 

1 04 00001 


STA 

1,1 

1851 

03214 

000201 


IAB 


1852 

03215 

1 04 00000 


STA 

0,1 

1853 

03216 

141216 


ACA 


1854 

03217 

0401 77 


LRS 

1 

1855 

03220 

1 02 00002 


LDA 

2,1 

1856 

03221 

0411 77 


LLS 

1 

1857 

03222 

140320 


CSA 


1858 

03223 

1 04 00002 


STA 

2,1 

1859 

03224 

0 10 Q3016 


JST 

RST 

1860 

03225 

0 12 03202 


IRS 

SFT 

1861 

03226 

-0 01 03202 


JMP* 

SFT 

1862 



• 



1863 

03227 

0 000000 

LIST 

DAC 

• • 

1864 

03230 

0 10 14301 


JST 

PRSP 

1865 

03231 

100010 


SR2 


1866 

03232 

0 01 03235 


JMP 

#♦3 

1867 

03233 

0 10 00000 


CALL 

F4SSYM 

1868 

03234 

0 014702 


DAC 

Pftl 

1869 

03235 

0 10 00000 


CALL 

F4SSYM 

1870 

03236 

0 001155 


DAC 

Cl 

1871 

03237 

-0 01 03227 


JMP* 

LIST 

1872 



• 


A A A A 

1873 



• 


• ASS 
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1837 

1838 

1839 

1840 

TRIPLE PRECISION 1841 

SHIFT LEFT ONE PLACE 1842 

1643 

1844 

1845 

1846 

1847 

1848 

1849 

1850 

1851 

1852 

1853 

1854 

1855 

1856 

1857 
1658 

1859 

1860 
1861 
1862 

1863 

1864 

1865 

1866 

PRINT BLANK LINE 1867 

1868 

PRINT SOURCE INPUT LINE 1869 

1870 

1871 

1 U T> 

*W f 6 

1873 
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1874 



• 




1874 

1875 



• 


CHECKS ASSIGNMENT AREA OF DATA POOL (AO TO ABAR) 

1875 

1876 



* 


FOR 

ITEM DEFINED BY ID, IM, IU, ETC, 

1876 

1877 



* 



IF FOUND, EXIT WITH POINTER AND 

1877 

1878 



• 



ASSIGNMENTS DATA SET, OTHERWISE 

1878 

1879 



• 



ASSIGN THE ITEM. 

1879 

1880 



• 




1880 

1881 



« 




1881 

1882 



• 




1882 

1883 

03240 

0 00 00000 

T0AS 

PZE 

0 


1883 

1884 

03241 

0 000000 

AS00 

DAC 

• » 


1884 

1885 

03242 

140040 


CRA 



1885 

1886 

03243 

0 04 00040 


STA 

A 

A * A (0) 

1886 

1887 

03244 

0 10 02672 

AS04 

JST 

STXA 


1887 

1888 

03245 

0 10 04062 


JST 

NXT 

GET NEXT ENTRY 

1888 

1889 

03246 

0 01 03355 


JMP 

AS30 

AT END , GO TO AS30 

1889 

1890 

03247 

0 02 00573 


IDA 

NT 


1890 

1891 

03250 

0 07 00617 


SUB 

NTA 

NT • NT ( A ) 

1891 

1892 

03251 

100040 


SZE 



1892 

1893 

03252 

0 01 03244 


JMP 

AS04 

NO, GO TO AS04 

1893 

1894 

03253 

0 02 01475 


IDA 

TID 


1894 

1895 

03254 

0 07 03634 


SU8 

TIDA 


1895 

1896 

03255 

100040 


SZE 



1896 

1897 

03256 

0 01 03244 


JMP 

AS04 

TID * T 1 0 ( A ) 

1897 

1898 

03257 

0 02 01476 


IDA 

TID*1 


1898 

1899 

03260 

0 07 03635 


SUB 

T I D A ♦ 1 


1899 

1900 

03261 

100040 


SZE 



1900 

1901 

03262 

0 01 03244 


JMP 

ASO 4 

NO. GO TO AS04 

1901 

19U2 

03263 

0 02 01477 


LDA 

T I D ♦ 2 


1902 

1903 

03264 

0 07 03636 


SUB 

T I D A 2 


1903 

1904 

03265 

100040 


SZE 



1904 

1905 

03266 

0 01 03244 


JMP 

AS04 


1905 

1906 

03267 

0 02 00573 


LDA 

NT 

IF NT (A) , NE , 0, 

1906 

1907 

03270 

101040 


SNZ 


GO TO AS10 

1907 

1908 

03271 

0 01 03331 


JMP 

AS16 

GO TO AS16 (4) 

1908 

1909 

03272 

0 02 00653 

AS 1 0 

LDA 

IM 

IF IM , NE , IM (A), 

1909 

1910 

03273 

0 07 00621 


SUB 

IMA 

GO TO AS04 (1) 

1910 
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1911 

03274 

100040 

SZE 


1912 

03275 

0 01 03244 

JMP 

ASQ 4 

1913 

03276 

0 02 00655 

LDA 

IU 

1914 

03277 

101040 

SNZ 


1915 

03300 

0 01 03244 

JMP 

AS04 

1916 

03301 

0 07 00623 

SUB 

IUA 

1917 

03302 

100040 

SZE 


1918 

03303 

0 01 03244 

JMP 

AS04 

1919 

03304 

0 02 00653 

LDA 

IM 

1920 

03305 

0 07 00723 

SUB 

K105 

1921 

03306 

100040 

SZE 


1922 

03307 

0 01 03331 

JMP 

AS16 

1923 

03310 

G 10 04062 

JST 

NXT 

1924 

03311 

0 01 03355 

JMP 

AS30 

1925 

03312 

0 02 03634 

LDA 

TIDA 

1926 

03313 

0 07 03637 

SUB 

TIDB 

1927 

03314 

100040 

SZE 


1928 

03315 

0 01 03244 

JMP 

ASQ 4 

1929 

03316 

0 02 03635 

LDA 

TIDA+1 

1930 

03317 

0 07 03640 

SUB 

TIDB*1 

1931 

03320 

100040 

SZE 


1932 

03321 

0 01 03244 

JMP 

AS04 

1933 

03322 

0 02 03636 

LDA 

TIDA+2 

1934 

03323 

0 07 03641 

SUB 

T 108-^2 

1935 

03324 

100040 

SZE 


1936 

03325 

0 01 03244 

JMP 

ASQ4 

1937 

03326 

0 02 00040 

LDA 

A 

1938 

03327 

0 07 00723 

SUB 

K105 

1939 

03330 

0 04 00040 

STA 

A 

1940 

03331 

0 02 00623 AS16 

LDA 

IUA 

1941 

03332 

0 06 00574 

ADD 

NTF 

1942 

03333 

100040 

SZE 


1943 

03334 

0 01 03345 

JMP 

AS18 

1944 

03335 

0 02 00051 

LDA 

SPF 

1945 

03336 

101040 

SNZ 


1946 

03337 

0 01 03345 

JMP 

a $1 3 

1947 

03340 

0 02 00607 

LDA 

tc~" 


IF IU s 0, 

OR NOT EQUAL IU (A) 
GO TO AS04 (1) 


ELSE, 

GO TO AS16 (4) 


ELSE, GET NEXT ENTRY 

IF ID (A) e T I D8 
GO TO AS16 (4) 

ELSE, GO TO ASQ4 (1) 


IF 

IU 

(A) . 

NE, 

GO 

TO 

Asia 

(5) 

IF 

SPF 

s o # 

GO 

IF 

TC 

= ( 



0 


TO ASl 8 


(5) 


1911 

1912 

1913 

1914 
1915) 

1916 

1917 

1918 

1919 

1920 

1921 

1922 

1923 

1924 

1925 

1926 

1927 

1928 

1929 

1930 

1931 

1932 

1933 

1934 

1935 

1936 

1937 

1938 

1939 

1940 

1941 

1942 

1943 

1944 

1945 

1946 

1947 
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1948 

03341 

0 

07 

00702 


SUB 

K17 


1948 

1949 

03342 

100040 


SZE 



1949 

1950 

03343 

0 

01 

03353 


JMP 

AS19 


1950 

1951 

03344 

0 

10 

03465 


JST 

TGOO 

TAG SUBPROGRAM 

1951 

1952 

03345 

140040 

AS16 

CRA 


SET NTF TO 0 

1952 

1953 

03346 

0 

04 

00574 


STA 

NTF 

SET NTF TO 0 

1953 

1954 

03347 

0 

10 

03656 


JST 

F AO 0 

GO TO FETCH ASSIGNS 

1954 

1955 

03350 

0 

10 

02672 


JST 

STXA 


1955 

1956 

03351 

0 

02 

00653 


IDA 

IM 


1956 

1957 

03352 

-o 

01 

03241 


JMP* 

ASO 0 

RETURN 

1957 

1958 

03353 

0 

10 

03642 

AS19 

JST 

TVOO 

TAG VARIABLE 

1958 

1959 

03354 

0 

01 

03345 


JMP 

ASIA 


1959 

1960 

03355 

0 

10 

04142 

AS30 

JST 

BUD 

BUILD ASSIGNMENT ENTRY 

1960 

1961 

03356 

0 

02 

00573 


IDA 

NT 

IF NT * 1 

1961 

1962 

03357 

100040 


SZE 



1962 

1963 

03360 

0 

01 

03365 


JMP 

AS32 

OR IV = VAR, 

1963 

1964 

03361 

0 

02 

00655 


LDA 

IU 


1964 

1965 

03362 

0 

07 

00720 


SUB 

K102 


1965 

1966 

03363 

100040 


SZE 



1966 

1967 

03364 

0 

01 

03407 


JMP 

AS40 

AMD 

1967 

1968 

03365 

0 

02 

00653 

AS32 

LDA 

IM 

IF IM s CPX, 

1968 

1969 

03366 

0 

07 

00723 


SUB 

K105 


1969 

1970 

03367 

100040 


SZE 



1970 

1971 

03370 

0 

01 

0 3 4 u 7 


JMP 

AS4Q 


1971 

1972 

03371 

0 

04 

00655 


STA 

IU 

MOVE 1ST PART OF 

1972 

1973 

03372 

0 

02 

03637 


LDA 

TIDB 

COMPLEX ENTRY TO 

1973 

1974 

03373 

0 

04 

01475 


STA 

T I D 

T I D AND BUILD 

1974 

1975 

03374 

0 

02 

03640 


LDA 

TIDB+1 

ASSIGNMENT ENTRY 

1975 

1976 

03375 

0 

04 

01476 


STA 

T I D ♦ 1 


1976 

1977 

03376 

0 

02 

03641 


LDA 

T I D8*2 


1977 

1978 

03377 

0 

04 

01477 


STA 

TID*2 


1978 

1979 

03400 

0 

02 

00040 


LDA 

A 


1979 

1980 

03401 

0 

06 

00723 


ADD 

K1U5 


1900 

1981 

03402 

0 

04 

00040 


STA 

A 


1981 

1982 

03403 

0 

10 

04142 


JST 

BUD 


1982 

1983 

03404 

0 

02 

00040 


LDA 

A 


1983 

1984 

03405 

0 

07 

00723 


SUB 

K105 

KESTURb A 

1984 
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1985 03406 

1986 03407 

1987 03410 

1988 03411 

1989 03412 

1990 03413 

1991 03414 

1992 03415 

1993 03416 

1994 03417 

1995 03420 

1996 03421 

1997 03422 

1998 03423 

1999 03424 

2000 03425 

2001 03426 

2002 03427 

2003 03430 

2004 03431 

2005 03432 

2006 03433 

2007 03434 

2008 03435 

2009 03436 

2010 03437 

2011 03440 

2012 03441 

2013 03442 

2014 03443 

2015 03444 

2016 03445 

2017 03446 

2018 03447 

2019 03450 

2020 03451 

2021 03452 


0 04 00040 
0 02 00054 
0 07 00040 
0 06 00723 
140407 
0 04 03240 
140407 
0 06 00661 
0 04 00661 
0 02 00652 
101040 
0 01 03460 
0 02 00041 
0 07 03240 
0 04 00041 
141206 
0 11 00044 
101000 
0 01 03456 
0 06 00104 
0 04 03463 
0 06 03240 
0 04 03464 
0 07 03240 
0 07 00104 
0 07 00661 
101040 
0 01 03331 
140407 
0 04 03240 
140040 
0 04 00000 
•0 02 03464 
-0 04 03463 
0 02 00000 
0 07 00717 
0 04 00000 


STA 

AS40 LDA 
SUB 
ADD 
TCA 
STA 
TCA 
ADD 
STA 
LDA 
SNZ 
JMP 
LDA 
SUB 
STA 
AOA 

AS41 CAS 
NOP 
JMP 
ADD 
STA 
ADD 
STA 
SUB 
SUB 
SUB 
SNZ 
JMP 
TCA 
STA 
CRA 
STA 

AS46 LDA* 
STA* 
LDA 

SUB 

STA 


A 

ABAR 

A 

K105 

TOAS 

DO 

DO 

IFLG 

AS60 

I 

TOAS 

I 

L 

AS50 
* 104 
AS9l 
TOAS 
AS92 
TOAS 
’104 
DO 

AS16 

TOAS 

XK 

AS92 

AS91 

0 

Ki Q i 

<r * 


TU = - ( ABAR-A+5 ) 

GIVING NO. OF WORDS TO MOVE TABLES UP 


CO*DQ* TO 

IF IFLG * 0# THERE IS NO EXPRESSION TABLE 
GO TO AS60 

1=1- TO ( TO IS NEGATIVE) 

CHECK AGAINST BOTTOM OF TRIAD TABLE 

■ DP * 1 

AS91 s NEW TABLE TOP 
AS92 

COMPUTE SIZE OF FLOATING TABLES 
■DP » 1 

IF ZERO, ASSIGN TABLE ONLY, 


END-5 

END (MOVE TABLES UP) 


” J. 

REDUCE INDEX 


1985 

1986 

1987 

1908 

1909 

1990 

1991 

1992 

1993 

1994 

1995 

1996 

1997 
1990 

1999 

2000 
2U01 
2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 
2021 
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2022 

03453 

0 12 03240 


IRS 

TOAS 

* NO, OF WORDS TO MOVE 

2022 

2023 

03454 

0 01 03446 


JHP 

AS46 


2023 

2024 

03455 

0 01 03331 


JMP 

AS16 


2024 

2025 

03456 

0 10 03116 

AS50 

JST 

EROO 


2025 

2026 

03457 

146717 


BCI 

1 , MO 

DATA POOL OVERFLOW 

2026 

2027 

03460 

0 02 00661 

AS60 

LDA 

DO 


2027 

2026 

03461 

0 06 00057 


ADD 

D 


2028 

2029 

03462 

0 01 03426 


JMP 

AS41 


2029 

2030 

03463 

0 000000 

AS91 

DAC 

0 


2030 

2031 

03464 

0 000000 

A$92 

DAC 

• • 


2031 

2032 



• 




2032 

2033 



• 




2033 

2034 



• 




2034 

2035 



• 




2035 

2036 



» 




2036 

2037 



• 


•TAG SUBPROGRAM# 

2037 

2038 



• 




2038 

2039 



• 


TAG ITEM 

AS A SUBPROGRAM, CHECK TO SEE IF 

2039 

2040 



• 


NAME 

IS IN IMPLICIT MODE TaBLE AND SET 

204Q 

2041 



* 


MODE 

ACCORDINGLY 

2041 

2042 



• 




2042 

2043 

03465 

0 000000 

TG00 

DAC 

*• 


2043 

2044 

03466 

0 02 00655 


LDA 

IU 


2044 

2045 

03467 

0 07 00717 


SUB 

K101 

IF IU * SUB 

2045 

2046 

03470 

101040 


SNZ 



2046 

2047 

03471 

•0 01 03465 


JMP# 

TGOO 

RETURN, ELSE 

2047 

2046 

03472 

0 10 02603 


JST 

NUO 0 

NO - USAGE TEST 

2048 

2049 

03473 

0 02 03534 


LDA 

TG22 

■ -21 

2049 

2050 

03474 

0 04 00000 


STA 

0 

SET INDEX 

2050 

2051 

03475 

0 02 01476 

TG04 

LDA 

JD#1 

CHARACTERS 3 AND 4 

2051 

2052 

03476 

1 11 03607 


CAS 

TGT2#21 , 1 

IMPLICIT MODE SUBR, NAME TABLE 

2052 

2053 

03477 

0 01 03501 


JMP 

*♦2 


20)3 

2054 

03500 

0 01 03514 


JMP 

TG 10 


2054 

2055 

03501 

0 12 00000 

TG06 

IRS 

0 


2055 

2056 

03502 

0 01 03475 


JMP 

TGO 4 

NOT DONE WITH TABLE 

2056 

2057 

03503 

0 02 00717 

TG08 

LDA 

K101 

• 1 ( I U*SUBR , ) 

2057 

2058 

03504 

0 04 00655 


STA 

IU 


2058 
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2059 

03505 

0 10 02672 


JST 

STXA 


2059 

2060 

03506 

1 02 15401 


LDA 

DP+1,1 

I U C A ) * SUB 

2060 

2061 

03507 

0414 77 


LGL 

1 


2061 

2062 

03510 

14Q500 


SSM 



2062 

2063 

03511 

0404 77 


LGR 

1 


2063 

2064 

03512 

1 04 15401 


STA 

DP*1 $ 1 


2064 

2065 

03513 

•0 01 03465 


JMP* 

TGOO 

RETURN 

2065 

2066 



• 




2066 

2067 

03514 

0 02 01475 

TG10 

LDA 

ID 

CHARACTERS 1 AND 2 

2067 

2068 

03515 

0 03 00730 


ANA 

Kill 

» * 37777 

2068 

2069 

03516 

0 06 00760 


ADD 

HB IT 

• * 140000 

2069 

2070 

03517 

1 07 03562 


SUB 

T6T1+21* 1 


2070 

2071 

03520 

100040 


SZE 



2071 

2072 

03521 

0 01 03501 


JMP 

TG06 

CONTINUE SEARCH 

2072 

2073 

03522 

0 02 01477 


LDA 

I D ♦ 2 

CHARACTERS 5 AND 6 

2073 

2074 

03523 

1 07 03634 


SUB 

TGT3 + 21 * 1 


2074 

2075 

03524 

100040 


SZE 



2075 

2076 

03525 

0 01 03501 


JMP 

TGQ6 

CONTINUE SEARCH 

2076 

2077 

03526 

1 02 03562 


LDA 

TGT1*21,1 


2077 

2078 

03527 

0404 70 


lgr 

8 


2078 

2079 

03530 

0 03 00725 


ANA 

K107 

*7 <*3 IF CPX» 4 IF DBD 

2079 

2080 

03531 

0 06 00720 


ADD 

K102 

• 2 < *5 IF CPX, 6 IF D&L) 

2080 

2081 

03532 

0 10 04026 


JST 

DM00 

DEFINE IM 

2001 

2082 

03533 

0 01 03503 


JMP 

TG08 


2082 

2083 



• 




2083 

2084 

03534 

177753 

TG22 

OCT 

177753 

• •21 

2084 

2085 



• 




2085 

2086 



• , , , , 


..IMPLICIT MODE 

SUBROUTINE NAME TABLE 

2086 

2087 

03535 

142305 

TGT1 

bcT 

6 * decedlcldlds 


2087 


03536 

141705 







03537 

142314 







03540 

141714 







03541 

142314 







03542 

142323 






2088 

03543 

a i e A a 

141723 

4 4 a in 1 


8CI 

6 t CSDCCCDSCSD A 


2088 


U OJ If 

03545 

i "1C 0\J O 

141703 
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03546 

142323 


03547 

141723 


03550 

142301 

2089 

03551 

142301 


03552 

142315 


03553 

142301 


03554 

142315 


03555 

142315 


03556 

142323 

2090 

03557 

142302 


03560 

141715 


03561 

141717 

2091 

03562 

154320 


03563 

154320 


03564 

147707 


03565 

147707 


03566 

147707 


03567 

144716 

2092 

03570 

144716 


03571 

147723 


03572 

147723 


03573 

150722 


03574 

150722 


03575 

152301 

2093 

03576 

152301 


0 35 77 

147704 


03600 

141323 


03601 

140730 


03602 

144716 


03603 

144707 

2094 

03604 

146305 


03605 

150314 


03606 

147312 

2095 

03607 

120240 


03610 

120240 


03611 

120240 


03612 

120240 


BCI 6 1 DADMD ADMDMDS 

BC! 3 i DBCMCO 
TGT2 BC! 6.XPXP0G0G0GIN 

BCI 6# ! NOSOSQRQRT A 

BC! 6.TA0DBSAXINIG 

BCI 3.LEPUNJ 
TGT3 BC! 6, 10 


2089 


2090 


2091 


2092 


2093 


2094 


2095 
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03613 

130660 




03614 

120240 



2096 

03615 

120240 


BCI 


03616 

120240 




03617 

120240 




03620 

152240 




03621 

152240 




03622 

147240 



2097 

03623 

147262 


BCI 


03624 

120240 




03625 

120240 




03626 

1 3 0 64 Q 




03627 

130640 




03630 

147240 



2098 

03631 

120240 


BCI 


03632 

154240 




03633 

143640 



2099 



• 


2100 



• 


2101 

03634 


TIDA 

BSS 

2102 

03637 


TIDB 

BSS 

2103 



• 


2104 



• 

- 

2105 

03642 

0 000000 

TVOO 

DAC 

2106 

03643 

0 02 00655 


LDA 

2107 

03644 

0 07 00720 


SUB 

2108 

03645 

101040 


SNZ 

2109 

03646 

•0 01 03642 


JMP* 

2110 

03647 

0 10 02603 


JST 

2111 

03650 

0 10 02672 


JST 

2112 

03651 

1 02 15401 


LDA 

2113 

03652 

0 03 00730 


ANA 

2114 

03653 

140500 


SSM 

2115 

03654 

1 04 15401 


STA 

2116 

03655 

-0 01 03642 


JMP* 

2117 



• 


2118 



• 



6, T T N / 


6 i N2 1 1 N / 


3, X G / 


3 

3 

TVOO TAG VARIABLE 

• • 

IU IF IU * f VAR * , 

K102 

TVOO RETURN 

NUOO ELSE, NO USAGE TEST 

STX A 
DP*1* 1 

Kill IU U) s *VAR* 

DP*1 » 1 

TVOO RETURN 


2096 


2097 


2098 


2099 

2100 
2101 
2102 

2103 

2104 
210$ 
2106 
2107 
2106 

2109 

2110 
2111 
2112 

2113 

2114 

2115 

2116 
14 4 1 

+ f 

2118 
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2119 

2120 
2121 
2122 

2123 

2124 

2125 

2126 
2127 
2126 

03656 

• 

* 

# 

• 

• 

• 

• 

• 

• 

0 000000 FA00 DAC 

•FETCH ASSIGN* 

SET ASSIGNMENT DATA FROM ASSIGN (EXCEPT ID) 

EXPAND DIMENSION INFO IF ARRAY 

• • 

2129 

03657 

0 10 02672 

JST 

STXA 


2130 

03660 

1 02 15400 

LDA 

DP 1 1 


2131 

03661 

0400 61 

LRL 

15 


2132 

03662 

0 04 00573 

STA 

NT 

NT*NT ( A ) 

2133 

2134 

03663 

03664 

140040 

0410 75 

CRA 

LLL 

3 

2135 

03665 

0 04 00631 

STA 

AT 

AT*AT ( A ) 

2136 

03666 

140040 

CRA 


2137 

03667 

0410 75 

LLL 

3 

IM ■ I M ( A ) 

2138 

03670 

0 04 00653 

STA 

IM 

2139 

03671 

0 04 00000 

STA 

0 


2140 

03672 

1 02 02731 

LDA 

KM92-1» 1 


2141 

03673 

0 04 00633 

STA 

DO 

DO * NUMBER OF WORDS 

2142 

03674 

0415 76 

AIS 

2 

2143 

03675 

0 06 00633 

ADD 

DO 


2144 

03676 

0 04 00612 

STA 

X 

X s POINTER TO CONSTANT NUMBER OF WURDS 

2145 

03677 

0 10 02672 

JST 

STXA 


2146 

Q3700 

1 02 15401 

LDA 

DP*1,1 


2147 

03701 

0400 62 

LRL 

14 


2148 

03702 

0 04 00655 

STA 

IU 


2149 

03703 

0 07 00721 

SUB 

K103 

IF IU NOT »ARR* 

2150 

2151 

03704 

03705 

101040 

0 01 03712 

SNZ 

JMP 

FA10 

2152 

2153 

03706 

03707 

140040 

0410 62 

CRA 

LLL 

14 

AF s GF(A) 

2154 

03710 

0 04 00630 

STA 

AF 

2155 

03711 

*0 01 03656 

JMP* 

FAOO 



2119 

2120 
2121 
2122 

2123 

2124 
212 $ 
2126 
2127 
2126 

2129 

2130 

2131 

2132 

2133 

2134 

2135 

2136 

2137 

2138 

2139 

2140 

2141 

2142 

2143 

2144 

2145 

2146 

2147 

2148 

2149 

2150 

2151 

2152 

2153 

2154 

2155 
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62 

2156 

03712 

0410 

62 

FA10 

ILL 

14 



2136 

2157 

03713 

0 

04 

00000 


STA 

0 

INDEX « GF(A) 


2157 

2158 

03714 

1 

02 

15404 


IDA 

DP + 4,1 



2158 

2159 

03715 

0 

04 

00613 


STA 

XI 

POINTER OF DIMENSION 1 


2159 

2160 

03716 

1 

02 

15403 


LDA 

DP*3# 1 



2160 

2161 

03717 

0 

04 

00614 


STA 

X2 

POINTER OF DIMENSION 2 


2161 

2162 

03720 

1 

02 

15402 


LDA 

DP*2,1 



2162 

2163 

03721 

0 

04 

00615 


STA 

X3 

POINTER OF DIMENSION 3 


2163 

2164 

03722 

1 

02 

15401 


LDA 

DP*1 # 1 



2164 

2165 

03723 

0 

03 

00730 


ANA 

Kill 

a' 37777 


2165 

2166 

03724 

0 

04 

00630 


STA 

AF 

AF * GFIGF(A) ) 


2166 

2167 

03725 

1 

02 

15400 


LDA 

DP# 1 



2167 

2168 

03726 

0404 

67 


LGR 

9 



2168 

2169 

03727 

0 

03 

00725 


ANA 

K107 

*7 


2169 

2170 

03730 

0 

04 

00571 


STA 

ND 

NUMBER OF DIMENSIONS 


2170 

2171 

03731 

0 

04 

00000 


STA 

0 



2171 

2172 

03732 

0 

02 

00717 


LDA 

K1Q1 

si 


2172 

2173 

03733 

0 

04 

00635 


STA 

D2 



2173 

2174 

03734 

0 

04 

00636 


STA 

D3 



2174 

2175 

03735 

*1 

01 

03764 


JMP* 

F A91-1 # 1 



2175 

2176 

03736 

0 

02 

00615 

FA22 

LDA 

X3 

FETCH 3RD DIMENSION SIZE 


2176 

2177 

03737 

0 

04 

00000 


STA 

XR 



2177 

2170 

03740 

0 

10 

03755 


JST 

FA40 



2178 

2179 

03741 

0 

04 

00636 


STA 

D3 

STORE D3 


2179 

2180 

03742 

0 

02 

00614 

FA24 

LDA 

X2 



2180 

2181 

03743 

0 

04 

00000 


STA 

XR 



2181 

2102 

03744 

0 

10 

03755 


JST 

FA4Q 



2182 

2183 

03745 

0 

04 

00635 


STA 

D2 

D2 * 2ND DIMENSION SIZE 


2183 

2184 

03746 

0 

02 

00613 

FA26 

LDA 

XI 



2184 

2185 

03747 

0 

04 

00000 


STA 

XR 



2185 

2186 

03750 

0 

10 

03755 


JST 

FA4 0 



2186 

2187 

03751 

0 

04 

00634 


STA 

Dl~ 

D1 * 1ST DIMENSION SIZE 


2187 

2188 

03752 

0 

10 

02672 


JST 

SfXA 

EXIT WITH AF IN A 


2188 

2189 

03753 

0 

02 

00630 


LDA 

AF 



2189 

2190 

03754 

•0 

01 

03656 


JMP* 

FAQO 



2190 

2191 

« nee 

m 

u 

A A A n A (1 

uuuuuu 

r A 4 A 

r * u 

D AC 

W w 



04 Q4 
^ * 

2192 

03756 

1 

02 

15400 


LDA 

DP# 1 

IM OF SUBSCRIPT VALUE 


2192 
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2193 

03757 

140100 


SSP 



2194 

03760 

0404 64 


LGR 

12 


2195 

03761 

0 

07 00723 


SUB 

K105 

35 

2196 

03762 

1 

00040 


$ZE 


SKIP IF DUMMY SUBSCRIPT 

2197 

03763 

1 

02 15404 


IDA 

DPM,1 

FETCH VALUE OF SUBSCRIPT 

2198 

03764 

-0 

01 03755 


JMP# 

FA40 


2199 

03765 

0 

003746 

FA91 

DAC 

FA26 


2200 

03766 

0 

003742 


DAC 

FA24 


2201 

03767 

0 

003736 


DAC 

FA22 


2202 




• 




2203 




• 




2204 




• 




2205 




• 


•FETCH LINK# 


2206 




* 




2207 




• 


EXPAND LINK FIELD AND FETCH ASSIGNS FUR THE 

2208 




• 


LINKED ITEM 


2209 




• 




2210 

03770 

0 

000000 

flqo 

DAC 

*# 


2211 

03771 

0 

10 02672 


JST 

STXA 


2212 

03772 

1 

02 15400 


LDA 

DP,1 

A « 5 • CL(A) 

2213 

03773 

0 

03 00735 


ANA 

K118 


2214 

03774 

0 

04 00667 


STA 

FLtl 


2215 

03775 

0415 76 


ALS 

2 


2216 

03776 

0 

06 00667 


ADD 

FLT1 

<flti also used by assign spec) 

2217 

03777 

0 

04 00040 


STA 

A 


2218 

04000 

0 

10 03656 


JST 

FAOQ 

FETCH ASSIGN 

2219 

040Q1 

0 

10 04005 


JST 

KT00 

DO * * HDS /ITEM 

2220 

04002 

0 

02 00040 


LDA 

A 


2221 

04003 

0 

07 00664 


SUB 

F 

(A) « A-F 

2222 

04004 

-0 

01 03770 


JMP# 

FLOO 

RETURN 

2223 




* 




2224 




« 




2225 




• 




2226 




* 


*DQ« WORDS FOR 

LINK# 

2227 




• 




2228 




* 


D » ITEM MODE SIZE TlMfcs twp total SIZE IF 

2229 




• 


THE ITEM IS 

AN ARRAY 


2193 

2194 

2195 

2196 

2197 

2198 

2199 

2200 
2201 
2202 

2203 

2204 

2205 

2206 

2207 

2208 

2209 

2210 
2211 
2212 

2213 

2214 

2215 

2216 

2217 

2218 

2219 

2220 
2221 
2222 

2223 

2224 

2225 

2226 

2227 

2228 
2229 
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2230 



• 




2230 

2231 

04005 

0 000000 

KT00 

DAC 

»« 


2231 

2232 

04006 

0 02 00655 


LDA 

IU 

IF IU NOT *ARR» 

2232 

2233 

04007 

0 07 00721 


SUB 

K103 


2233 

2234 

04010 

100040 


SZE 



2234 

2239 

04011 

-0 01 04005 


JMP* 

KTOO 

RETURN 

2235 

2236 

04012 

0 02 00633 


LDA 

DO 


2236 

2237 

04013 

000201 


IAS 


DO * UO • D1 • D2 • D3 

2237 

2236 

04014 

0 02 00634 


LDA 

D1 


2238 

2239 

04015 

0 10 02703 


JST 

I MOO 

multiply A BY 8 

2239 

2240 

04016 

000201 


IAS 



2240 

2241 

04017 

0 02 00635 


LDA 

D2 


2241 

2242 

04020 

0 10 02703 


JST 

IMOO 

multiply A BY 0 

2242 

2243 

04021 

000201 


IAB 



2243 

2244 

04022 

0 02 00636 


LDA 

D3 


2244 

2245 

04023 

0 10 02703 


JST 

IMOO 

multiply a by b 

2245 

2246 

04024 

0 04 00633 


STA 

DO 


2246 

2247 

04025 

•0 01 04005 


JMP* 

KTOO 

RETURN 

2247 

2248 



• 




2248 

2249 



• 




2249 

2250 



• 




2250 

2251 



• 




2251 

2252 



• 


•DEFINE IM* 


2252 

2253 



• 




2253 

2254 



• 


IM SUSA « IM (SET 

FROM A REG) 

2254 

2255 



• 




2255 

2256 

04026 

0 000000 

DM00 

DAC 

• • 


2256 

2257 

04027 

0 04 00653 


STA 

1H 

IM « (A) 

2257 

2258 

04030 

0 10 02672 


JST 

STXA 

ESTABLISH A 

2258 

2259 

04031 

1 02 15400 


LDA 

DP; 1 


2259 

2260 

04032 

0400 67 


LRL 

9 


2260 

2261 

04033 

0404 75 


LGR 

3 

I M ( A ) « IM 

2261 

2262 

04034 

0414 75 


LGL 

3 


2262 

2263 

04035 

0 06 00653 


ADD 

IM 


2263 

2264 

04036 

0410 67 


LLL 

9 


2264 


04037 

1 Uf 171UU 


6 1 A 

DP# 1 


2765 

2266 

04040 

-0 01 04026 


JMP* 

DMUO 


2266 
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2267 





2268 





2269 





2270 





2271 





2272 





2273 





2274 

04041 

0 

000000 

2275 

04042 

0 

04 

00630 

2276 

04043 

0400 

62 

2277 

04044 

0 

10 

02672 

2278 

04045 

1 

02 

15401 

2279 

04046 

0404 

62 

2280 

04047 

0 

11 

00721 

2281 

04050 

0 

01 

04052 

2282 

04051 

0 

01 

04055 

2283 

04052 

0410 

62 

2284 

04053 

1 

04 

15401 

2285 

04054 

-0 

01 

04041 

2286 

04055 

1 

02 

15401 

2287 

04056 

0 

03 

00730 

2288 

04057 

0 

04 

Q0650 

2289 

04060 

0 

04 

00000 

2290 

04061 

0 

01 

04045 

2291 

04062 

0 

oooooo 

2292 

04063 

0 

02 

00040 

2293 

04064 

0 

06 

00723 

2294 

04065 

0 

04 

00040 

2295 

04066 

0 

04 

00000 

2296 

04067 

0 

11 

00054 

2297 

04070 

-0 

01 

04062 

2298 

04071 

101000 

2299 

04072 

0 

12 

04062 

2300 

04073 

1 

02 

15400 

2301 

04074 

0400 

61 

2302 

04075 

0 

04 

00617 

2303 

04076 

140041) 


* C210-001-6601 ( FRTN ) 


•DEFINE AF* 

AF SUBA * AF (SET 


DADO 

DAC 

«• 


STA 

AF 


LRL 

14 


JST 

STXA 

DA10 

lda 

DP*1 


LGR 

14 


CAS 

K103 


JMP 

• ♦2 


JMP 

DA20 


LLL 

14 


STA 

DP*1 


JMP* 

DADO 

□ A20 

LDA 

DP*1 


ANA 

Kill 


STA 

GFA 


STA 

0 


JMP 

DA10 

NXT 

DAC 

• • 


LDA 

A 


ADD 

K105 


STA 

A 


STA 

0 


CAS 

ABAR 


JMP* 

NXT 


NOP 



IRS 

NXT 


LDA 

DP# 1 


LRL 

15 


STA 

NT A 


CRA 



3C NO, 180463000 

FROM A REG ) 

AF = (A) 

IF IU (A) NOT ARR 
GF (A) s AF 

ELSE, GF (GF (A)) * AF 
RETURN 

GET NEXT ENTRY 
FROM ASSIGNMENT 
*5 

S’T(A) « NT FROM (A) 


RfcV. D PAGE 65 


2267 

2268 

2269 

2270 

2271 

2272 

2273 

2274 

2275 

2276 

2277 

2278 

2279 

2280 
2281 
2282 

2283 

2284 

2285 

2286 

2287 

2288 

2289 

2290 

2291 

2292 

2293 

2294 

2295 

2296 

2297 

2298 

2299 

2300 

2301 

2302 

2303 
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2304 

04077 

0410 75 

LLL 

3 




2304 

2305 

04100 

0 04 00620 

STA 

ATA 

AT ( A ) 

■ AT FROM (A) 


2305 

2306 

04101 

140040 

CRA 





2306 

2307 

04102 

0410 75 

LLL 

3 




2307 

2308 

04103 

0 04 00621 

STA 

IMA 

I M ( A ) 

* IM FROM (A) 


2308 

2309 

04104 

140040 

CRA 





2309 

2310 

04105 

0410 67 

LLL 

9 




2310 

2311 

04106 

0 04 00622 

STA 

CLA 

CL( A) 

* CL FROM (A) 


2311 

2312 

04107 

1 02 15401 

LDA 

DP*lil 




2312 

2313 

04110 

0400 62 

LRL 

14 




2313 

2314 

04111 

0 04 00623 

STA 

1UA 

I U ( A ) 

■ Iu FROM (A) 


2314 

2315 

04112 

140040 

CRA 





2315 

2316 

04113 

0410 62 

LLL 

14 




2316 

2317 

04114 

0 04 00650 

STA 

GF A 

GF ( A ) 

» GF FROM (A) 


2317 

2318 

04115 

1 02 15402 

LDA 

DP*2»1 




2318 

2319 

04116 

0 04 03636 

STA 

T1DA*2 

TID(A) 

* TID FROM (A) 


2319 

2320 

04117 

1 02 15403 

LDA 

DP*3# 1 




2320 

2321 

04120 

0 04 03635 

STA 

TIDA*1 




2321 

2322 

04121 

1 02 15404 

LDA 

DP*4 , 1 




2322 

2323 

04122 

0 04 03634 

STA 

TIDA 




2323 

2324 

04123 

0400 61 

LRL 

15 




2324 

2325 

04124 

0 04 00624 

STA 

DTA 

DT ( A ) 

* DT FROM (A) 


2325 

2326 

04125 

140040 

CRA 





2326 

2327 

04126 

0410 77 

LLL 

1 




2327 

2328 

04127 

0 04 00625 

STA 

TTA 

TT < A ) 

* TT FROM (A) 


2328 

2329 

04130 

0 02 00617 

LDA 

NTA 

NT ( A ) 

* NT FROM (A) 


2329 

2330 

04131 

100040 

SZE 





2330 

2331 

04132 

•0 01 04062 

JMP* 

NXT 




2331 

2332 

04133 

1 02 15404 

LDA 

DP*4,1 




2332 

2333 

04134 

140500 

SSM 





2333 

2334 

04135 

0416 77 

ALR 

1 




2334 

2335 

04136 

140500 

SSM 





2335 

2336 

04137 

0406 77 

ARR 

1 




2336 

2337 

04140 

0 04 03634 

STA 

TIDA 




2337 

2338 

04141 

•0 01 04062 

JMP* 

NXT 




2338 

m -tea 

W 


m 






5t io 

2340 


• 






2340 



H 1) IN 


2341 04142 

2342 04143 

2343 04144 

2344 04145 

2345 04146 

2346 04147 

2347 04150 

2348 04151 

2349 04152 

2350 04153 

2351 04154 

2352 04155 

2353 04156 

2354 04157 

2355 04160 

2356 04161 

2357 04162 

2358 04163 

2359 04164 

2360 04165 

2361 04166 

2362 04167 

2363 04170 

2364 04171 

2365 04172 

2366 04173 

2367 04174 

2368 04175 

2369 04176 

2370 04177 

2371 04200 

2372 04201 

2373 04202 

2374 04203 

2375 04204 

2376 04205 

2377 04206 
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0 000000 

bud dac 

• • 

0 10 02672 

JST 

STXA 

0 04 QQ054 

STA 

ABAR 

0 02 01475 

LDA 

TID 

1 04 15404 

STA 

DP*4,1 

0 02 01476 

LDA 

TI0*1 

1 04 15403 

STA 

DP*3# 1 

0 02 01477 

LDA 

TID*2 

l 04 15402 

STA 

DP*2,1 

0 02 00655 

LDA 

IU 

0 04 00623 

STA 

I U A 

0414 62 

LGL 

14 

1 04 15401 

STA 

DP*1 t 1 

0 02 00573 

LDA 

NT 

0414 75 

LGL 

3 

0 06 00720 

ADD 

K102 

0414 75 

LGL 

3 

0 06 00653 

ADD 

JM 

0400 60 

LRL 

16 

0 04 00665 

STA 

CL 

0 02 0072Q 

LDA 

K102 

0 04 00631 

STA 

AT 

0 02 00040 

LDA 

A' 

0 07 00723 

SUB 

K105 

100400 

SPL 


0 01 04176 

JMP 

• ♦3 

0 12 00665 

IRS 

CL 

0 01 04171 

JMP 

••4 

0410 47* 

LLL 

25 

0 06 00665 

ADD 

CL 

1 04 15400 

STA 

DP# 1 

100400 

SPL 


0 01 04142 

JMP* 

BUD 

0 02 00666 

LDA 

OT 

0414 77 

LGL 

1“ 

0 06 00610 

ADD 

TT 

0414 62 

LGL 

14 


BUILD ASSIGNMENT 

table entry 


AT * STR/+BS 


CL(A) ■ A/5 


2341 

2342 


2343 

2344 

2345 

2346 

2347 

2348 

2349 

2350 

2351 


2352 

2353 

2354 

2355 

2356 

2357 

2358 

2359 


2361 

2362 

2363 

2364 

2365 

2366 

2367 
2366 


2|69 

2370 

2371 
2J72 

2373 

2374 

2375 

2376 

2377 
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2378 

04207 

1 13 15404 


I HA 

DP*4 , 1 

2379 

04210 

0 03 00730 


ANA 

Kill 

2380 

04211 

1 06 15404 


ADD 

DP*4,1 

2381 

04212 

1 04 15404 


STA 

DP*4,1 

2382 

04213 

-0 01 04142 


JMP* 

BUD 

2383 



• 



2384 



• 



2385 



• 



2386 



• 



2387 



* 



2388 



• 



2389 



• 


♦DEFINE AFTft 

2390 



• 



2391 



• 


AT SUBA * AT (FROM B REG), THEN DEFINE AF 

2392 



• 



2393 

04214 

0 000000 

AF00 

DAC 

«• 

2394 

04215 

000201 


IA8 


2395 

04216 

0 04 04231 


STA 

AF90 

2396 

04217 

0 10 02672 


JST 

STXA 

2397 

04220 

0 02 04231 


IDA 

AF90 

2398 

04221 

0414 64 


LGL 

12 

2399 

04222 

1 13 15400 


I HA 

DP# 1 

2400 

04223 

0 03 04232 


ANA 

AF91 

2401 

04224 

1 06 15400 


ADD 

DP # 1 

2402 

04225 

1 04 15400 


STA 

DP, 1 A T ( A ) « CONTENTS OF B INPUT 

2403 

04226 

000201 


IAB 


2404 

04227 

0 10 04041 


JST 

DA 00 DEFINE AF 

2405 

04230 

*0 01 04214 


JMP* 

AFOO 

2406 

04231 

0 00 00000 

AF90 

pze 

0 

2407 

04232 

107777 

AF91 

OCT 

107777 

2408 



• 



2409 



• 



2410 



• 



2411 



• 


♦DEFINE LOCATION* 

2412 



• 



2413 





SET AF = RPL, AT = REL 

2414 

04233 

0 000000 

LOO 0 

DAC 

«« 


2378 

2379 

2380 

2381 

2382 

2383 

2384 
2389 

2386 

2387 

2388 

2389 

2390 

2391 

2392 

2393 

2394 
2399 

2396 

2397 

2398 

2399 

2400 

2401 

2402 

2403 

2404 
2409 
24Q6 

2407 

2408 

2409 

2410 

2411 

2412 

2413 

2414 
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2415 

2416 

04234 

04235 

0 02 00717 
000201 

LDA 

IAB 

K101 

REL 

2415 

2417 

04236 

0 02 00060 

LDA 

RPL 


2416 

2418 

04237 

0 10 04214 

JST 

AFQO 

DEFINE AF 

2417 

2419 

2420 

04240 

-0 01 04233 

• 

JMP* 

1000 

2416 

2419 


2421 

2422 

2423 

2424 

2425 

2426 

2427 

2428 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 


04241 

04242 

04243 

04244 

04245 

04246 

04247 

04250 

04251 


04252 

04253 

04254 

04255 

04256 

04257 

04260 

04261 


0 000000 
140040 
0 04 01476 
0 04 01477 
0 02 00717 
000201 
0 02 00720 
0 10 04252 
-0 01 04241 


* 

* 

A I 00 


DAC 

CRA 

STA 

STA 

IDA 

IAB 

IDA 

JST 

JMP* 


IM 

** 


•ASSIGN INTEGER CONSTANT* 
(INTEGER)# I U ( VARIABLE ) , 


ASSIGN SPECIAL 


I D ♦ 1 
I D ♦ 2 
K101 

K102 
AAOO 
A I 0 0 


<B> 


INT 


(A) « VAR 
ASSIGN SPECIAL 
RETURN 


•ASSIGN SPECIAL* 


0 000000 

AAOO DAC 

• • 

0 04 00655 

STA 

IU 

000201 

IAB 


0 04 00653 

STA 

IM 

0 02 00717 

LDA 

K101 

0 04 00573 

STA 

Nt 

0 10 03241 

JST 

ASOO 

0 01 04252 

JMP* 

AAOO 


8 REG TO IM# A REG TO IU, 1 
ASSIGN ITEM 


TO NT (CONSTANT), THEN 


IU 


IM 


(A) 

(B) 


NT « 1 
ASSIGN ITEM 
RETURN 


• JUMP 


2420 

2421 

2422 

2423 

2424 

2425 

2426 

2427 
2426 

2429 

2430 

2431 

2432 

2433 

2434 

2435 

2436 

2437 

2438 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2448 

2449 

2450 

2451 
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2452 



• 


•ILL 

TERM* 




2453 



• 


• ••* 





2454 



* 







2455 



• 


CLEAR LAST OP 

FLAG 

FOR NU PATH TESTING 


2456 



• 







2457 

04262 

140040 

86 

CRA 






2438 

04263 

0 04 00073 


STA 

LSTP 



LSTP = 0 


2459 



• 


SET ILLEGAL DO 

1ERM FLAG 


2460 

04264 

0 02 00717 

C5 

IDA 

K101 





2461 

04265 

0 04 00072 


STA 

ISTF 



LSTF =1 


2462 

04266 

0 02 00756 

A1 

LDA 

CRET 





2463 

04267 

0 10 02547 


JST 

TSOO 



IF TC NOT C/R, ERROR 


2464 

04270 

0 01 04271 


JMP 

C6 





2465 



• 







2466 



» 







2467 



• 


»*•* 





2468 



• 


•CONTINUE* 




2469 



• 


• ••• 





2470 



* 


WRAPUP 

LOGICAL 

IF, 

CHECK TRACE STOP AND 

SEARCH 

2471 



• 


DO 

TABLE 

FOR 

DO TERMINATION 


2472 

04271 

0 02 00070 

C6 

LDA 

LIF 





2473 

04272 

100040 


SZE 




IF LIF NON-ZERO# 


2474 

04273 

0 01 04333 


JMP 

C6H 



GO TO 


2475 

04274 

0 02 00071 

C6A 

LDA 

LSTN 



IF LSTN NON-ZERO, 


2476 

04275 

100040 


SZE 




GO TO 


2477 

04276 

0 01 04301 


JMP 

C6C 





2478 

04277 

0 04 00072 

C6B 

STA 

LSTF 



LSTF * 0 


2479 

04300 

0 01 04353 


JMP 

C7 



GO TO STATEMENT INPUT 


2480 

04301 

0 07 00065 

C6C 

SUB 

TRF 



TRACE FLAG 


2481 

04302 

101040 


SNZ 




SKIP IF NOT END OF TRACE ZONE 

2482 

04303 

0 04 00065 


STA 

TRF 



SET TRF TO ZERO (TURN 

FLAG OFF) 

2483 

04304 

0 02 00661 


LDA 

DO 



START OF DO TABLE 


2484 

04305 

0 06 00057 


ADD 

D 





2485 

04306 

0 04 00041 

C6D 

STA 

I 



I a DO ♦ D 


2486 

04307 

0 10 02676 


JST 

STXI 





2487 

04310 

0 0 / 00061 


SUB 

uu 





2488 

04311 

101040 


SNZ 







2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 
2460 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 

2477 
2470 

2479 

2480 

2401 

2402 

2483 

2484 

2485 

2486 

oa h-7 

*• T V i 

2488 
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2489 

04312 

0 01 04277 


JMP 

C6B 

GU TO C6B - FINISHED DO 

2489 

2490 

04313 

1 02 15374 


IDA 

DP-4,1 


2490 

2491 

04314 

0 07 00071 


SUB 

LSTN 


2491 

2492 

04315 

100040 


SZE 



2492 

2493 

04316 

0 01 04327 


JMP 

C6E 


2493 

2494 

04317 

0 02 00072 


IDA 

LSTF 


2494 

2495 

04320 

100040 


SZE 



2495 

2496 

04321 

0 01 04351 


JMP 

C6K 


2496 

2497 

04322 

0 10 06773 


JST 

DOOO 

DO TERMINATION 

2497 

2498 

04323 

0 02 00057 


LDA 

D 


2498 

2499 

04324 

0 07 00723 


SUB 

K105 


2499 

2500 

04325 

0 04 00057 


STA 

D 

D * D-5 

2500 

2501 

04326 

0 02 00072 


LDA 

LSTF 


2501 

2502 

04327 

0 04 00072 

C6E 

STA 

LSTF 


2502 

2503 

04330 

0 02 00041 


LDA 

I 


2503 

2504 

04331 

0 07 00723 


SUB 

K105 


2504 

2505 

04332 

0 01 04306 


JMP 

C6D 

1*1-5- CONTINUE DO LOOP 

2505 

2506 

04333 

0 02 00053 

C6H 

LDA 

IFF 


2506 

2507 

04334 

0 04 00040 


STA 

A 


2507 

2508 

04335 

101040 


SNZ 



2508 

2509 

04336 

0 01 04344 


JMP 

C6J 


2509 

2510 

04337 

0410 60 


LLL 

16 


2510 

2511 

04340 

0 02 13733 


LDA 

OM I 5 

(A) = JMP INSTRUCTION 

2511 

2512 

04341 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

2512 

2513 

04342 

140040 


CRA 



2513 

2514 

04343 

0 04 00053 


STA 

IFF 

IFF ■ 0 

2514 

2515 

04344 

0 04 00040 

C6 J 

STA 

A 

A * 0 

2515 

2516 

04345 

0 02 00070 


LDA 

LIF 


2516 

2517 

04346 

0 04 00073 


STA 

LStP 

SET TO NON-ZERO TO PREVENT DATA ERROR MSG 

251? 

2518 

04347 

0 10 14135 


JST 

OSOO 

OUTPUT STRING - RPL 

2518 

2519 

04350 

0 01 04274 


JMP 

C6A 


2519 

2520 



• 




2520 

2521 

04351 

0 10 03116 

C6K 

JST 

ERQQ 


2521 

2522 

04352 

142324 


BCI 

1 # DT 


2522 

2523 



* 




2523 

2524 



« 




2524 

2525 



• 


♦STATEMENT 

INPUT* 

2525 
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2526 



* 




2526 

2527 



• 


SET 

UP PROCESSING OF NEXT SOURCE STATEMENT 

2527 

2528 



• 



PROCESS STATEMENT NUMBER IF PRESENT 

2528 

2529 



• 



WRAPUP ANY OUTSTANDING ARITHMETIC IF 

2529 

2530 

04353 

140040 

C7 

CRA 



2530 

2531 

04354 

0 04 00071 


STA 

LSTN 

LSTN s o 

2531 

2532 

04355 

0 04 00652 


STA 

iFlg 

IFLG » 0 

2532 

2533 

04356 

0 04 00070 


STA 

LIF 

LIF « 0 

2533 

2534 

04357 

0 02 00113 


LDA 

L0 

L ■ L (0) 

2534 

2535 

04360 

0 04 00044 


STA 

L 


2535 

2536 

04361 

0 02 01155 


LDA 

Cl 

CHECK CARD COLUMN 1 

2536 

2537 

04362 

0404 70 


LGR 

8 

FOR S CHARACTER 

2537 

2538 

04363 

0 07 00700 


SUB 

K15 

*(S) 

2538 

2539 

04364 

101040 


SNZ 



2539 

2540 

04365 

0 01 04433 


JMP 

CCRD 

CONTROL CARD 

2540 

2541 

04366 

0 10 02525 


JST 

XN00 

EXAMINE NEXT CHAR 

2541 

2542 

04367 

100040 


SZE 



2542 

2543 

04370 

0 01 04375 


JMP 

C71 


2543 

2544 

04371 

0 10 02443 


JST 

ISOO 

INPUT STATEMENT * 

2544 

2545 

04372 

0 02 00040 


LDA 

A 


2545 

2546 

04373 

0 04 00071 


STA 

LSTN 

LSTN * A 

2546 

2547 

04374 

0 04 00073 


STA 

LStP 


2547 

2548 

04375 

0 02 00053 

C71 

LDA 

IFF 

CHECK FOR I FF»Q 

2548 

2549 

04376 

0 02 00053 


LDA 

IFF 

IF IFF • 0, 

2549 

2550 

04377 

101040 


SNZ 



2550 

2551 

04400 

0 01 04405 


JMP 

C7B 

GO TO C7B 

2S51 

2552 

04401 

0 07 00071 


SUB 

LSTN 

IF * LSTN 

2552 

2553 

04402 

100040 


SZE 



2553 

2554 

04403 

0 01 04407 


JMP 

C7C 


2554 

2555 

04404 

0 04 00053 

C7 A 

STA 

iff 

IFF b Q 

2555 

2556 

04405 

0 10 04416 

C7B 

JST 

C7LT 

LINE TEST 

2556 

2557 

04406 

0 01 04456 


JMP 

C8 


2557 


04407 

0 02 00053 

C7C 

LDA 

IFF 

IFF » A 

2558 

2559 

04410 

0 04 00040 


STA 

A 


2559 

2560 

04411 

0400 40 


LRL 

32 


2560 

OK A4 
w* 

ft A A 4 O 

V -V * tm 

n n o mm 

W U *• / VW 


i n a 

lua 

i/ On 4 

r\ C. u £ 

(a) * JMr I STRUCT! uN 

256i 

2562 

04413 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

2562 
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2563 

04414 

140040 


CRA 


2564 

04415 

0 01 04404 


JMP 

C7A 

2565 

04416 

0 000000 

C7LT 

DAC 

*• 

2566 

04417 

0 02 01157 


LDA 

C I *2 

2567 

04420 

0 03 00733 


ANA 

K116 

2568 

04421 

0 06 00673 


ADD 

K8 

2569 

04422 

0 04 01157 


STA 

C l *2 

2570 

04423 

0 02 00607 


LDA 

TC 

2571 

04424 

0 07 00763 


SUB 

HC2 

2572 

04425 

100040 


SZE 


2573 

04426 

0 01 04431 


JMP 

C7LU 

2574 

04427 

0 10 03227 


JST 

LIST 

2575 

04430 

-0 01 04416 


JMP* 

C7LT 

2576 

04431 

0 10 03116 

C7lU 

JST 

EROO 

2577 

04432 

151703 


BCI 

l,sc 

2578 



• 



2579 



# 



2580 



• 



2581 



• 



2582 



• 


♦CONTROL CARD 

2583 



• 



2584 

04433 

0 10 14523 

CORD 

JST 

FSOO 

2585 

04434 

0 10 03227 


JST 

LIST 

2586 

04435 

0 02 01155 


LDA 

Cl 

2587 

04436 

0414 64 


LGL 

12 

2588 

04437 

101040 


SNZ 


2589 

04440 

0 02 04454 


LDA 

CCRK 

2590 

04441 

0404 72 


LGR 

6 

2591 

04442 

0 04 14632 


STA 

OCI 

2592 

04443 

0 02 00724 


LDA 

K106 

2593 

04444 

0 04 00602 


STA 

OCNT 

2594 

04445 

0 10 14523 


JST 

FSOO 

2595 

04446 

0 02 01155 


LDA 

Cl 

2596 

04447 

0414 64 


LGL 

12 

2597 

04450 

100040 


SZE 


2598 

04451 

0 01 03150 


JMP 

ER20 

2599 

04452 

0 10 OQUQQ 


CALL 

F 4 $ E \ D 


3C NO, 180463000 REV. U PAG& 73 


2563 

GO TO C7A 2564 

LINE TEST 2565 

Cl > BLANK 2566 

LIST LINE 2567 

RETURN 2568 

2569 

2570 

IF TO * SPECIAL 2571 

2572 

2573 

2574 

2575 

CONSTRUCTION ERROR 2576 

STATEMENT NO, ON A CONTINUATION CARD 2577 

2578 

2579 
2560 

•»«••**««• 2581 

PROCESSOR* 2582 

********** 2583 

FLUSH BUFFER IF NECESSARY 2584 

LIST CARD 2585 

WORD CONTAINING COLUMN 1 2586 

2587 

2588 

s » 030000 (EOJ CODE * 3) 2589 

TRUNCATE TO A DIGIT 2590 

2591 

»6 2592 

SET BUFFER WORD COUNT TO 3 2593 

•FLUSH BUFFER 2594 

2595 

CHECK COLUMN 1 FOR CONTROL CODE 0 2596 

2597 

SKIP TO NEXT CARD (NOT CONTROL CARD) 2598 

CLOSb-OUT I/O DEVICES AND STOP 2599 
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2600 

04453 

0 01 01003 


JMP 

A0 

RESTART NEW COMPILATION 

2600 

2601 

04454 

030000 

CCRK 

OCT 

030000 

EOJ CONTROL CODE 

2601 

2602 



• 




2602 

2603 



• 




2603 

2604 



• 


•STATEMENT SCAN# 

2604 

2605 



• 




2605 

2606 



• 


DETERMINE 

THE CLASS OF THE STATEMENT 

2606 

2607 



• 


IF AN 

a IS FOUND WITH A FOLLOWING , 

2607 

2608 



• 



THE STATEMENT IS A DO 

2608 

2609 



• 



IF NO FOLLOWING COMMA , THE PAREN FLAG 

2609 

2610 



• 



IS TESTED* IF NO PARENS# THE STATEMENT 

2610 

2611 



• 



IS ARITHMETIC ASSIGNMENT 

2611 

2612 



« 



IF PARENS WERE DETECTED AND THE FIRST 

2612 

2613 



• 



NAME IS AN ARRAY, THE STATEMENT IS 

2613 

2614 



• 



ARITHMETIC ASSIGNMENT 

2614 

2615 



• 



OTHERWISE# IT IS A STATEMENT FUNCTION 

2615 

2616 



• 



IF NO ■ IS FOUND, THE STATEMENT IS 

2616 

2617 



• 



PROCESSED FURTHER IN STATEMENT ID 

2617 

2618 

04455 

0 00 00000 

C8T1 

PZE 

0 


2618 

2619 

04456 

0 02 00662 

C8 

LDA 

CC 

SAVE CC 

2619 

2620 

04457 

0 04 04576 


STA 

C8X9 


2620 

2621 

04460 

0 02 00717 


L0A 

K101 


2621 

2622 

04461 

0 04 04455 


STA 

C8T 1 

T (1) = 1 

2622 

2623 

04462 

140040 


CRA 



2623 

2624 

04463 

0 04 00651 


STA 

ICSW 

ICSW « SIR 

2624 

2625 

04464 

0 10 01256 

C8A 

JST 

CH00 

INPUT CHARACTER 

2625 

2626 

04465 

0 02 00607 

C8B 

LDA 

TC 

IF TC * ) 

2626 

2627 

04466 

0 07 00671 


SUB 

K4 


2627 

2628 

04467 

100040 


SZE 



2628 

2629 

04470 

0 01 04502 


JMP 

C8C 


2629 

2630 

04471 

0 10 01256 


JST 

CHOO 

INPUT CHAR 

2630 

2631 

04472 

0 02 00643 

C882 

LDA 

DFL 

-IF DFL NOT ZERO 

2631 

2632 

04473 

100040 


SZE 



2632 

2633 

04474 

0 01 04465 


JMP 

C8B 

GO TO C8B 

2633 

2634 

04475 

0 02 045/6 

C884 

LDA 

C8X9 

RESTORE CC 

2634 

2635 

A447A 

n n4 nnAAg 


O T k 

rr 



2636 

04477 

0 02 00717 


LDA 

K 1 0 1 

I PL 

2636 
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2637 

04500 

0 

04 

00651 


STA 

ICSW 

2638 

04501 

0 

01 

04602 


JMP 

A9 

2639 

04502 

0 

02 

00607 

CSC 

LDA 

TC 

2640 

04503 

0 

07 

00702 


SUB 

K17 

2641 

04504 

100040 


SZE 


2642 

04505 

0 

01 

04515 


JMP 

C8D 

2643 

04506 

0 

02 

04455 


LDA 

C8T1 

2644 

04507 

0 

07 

00717 


SUB 

K101 

2645 

04510 

0 

04 

04455 


STA 

C8T1 

2646 

04511 

100040 

C8C4 

SZE 


2647 

04512 

0 

01 

04475 


JMP 

C8B4 

2648 

04513 

0 

10 

01521 


JST 

DNOO 

2649 

04514 

0 

01 

04472 


JMP 

C8B2 

2650 

04515 

0 

02 

00607 

C8D 

LDA 

TC 

2651 

04516 

0 

11 

00752 


CAS 

K134 

2652 

04517 

0 

01 

04521 


JMP 

#♦2 

2653 

04520 

0 

01 

04524 


JMP 

C8D2 

2654 

04521 

0 

07 

00672 


SUB 

K5 

2655 

04522 

100040 


SZE 


2656 

04523 

0 

01 

04526 


JMP 

C8E 

2657 

04524 

0 

02 

04455 

C8D2 

LDA 

C8T1 

2658 

04525 

0 

01 

04511 


JMP 

C8C4 

2659 

04526 

0 

02 

00607 

C8E 

LDA 

TC 

2660 

04527 

0 

07 

00674 


SUB 

K9 

2661 

04530 

101040 


SNZ 


2662 

04531 

0 

01 

04475 


JMP 

C8B4 

2663 

04532 

0 

02 

00607 


LDA 

TC 

2664 

04533 

0 

07 

00703 


SUB 

Kie 

2665 

04534 

100040 


SZE 


2666 

04535 

0 

01 

04464 


JMP 

C8A 

2667 

04536 

0 

02 

00725 


LDA 

K107 

2668 

04537 

0 

10 

01355 


JST 

I A 0 0 

2669 

04540 

0 

02 

04576 


LDA 

C8X9 

2670 

04541 

0 

04 

00662 


STA 

CC 

2671 

04542 

0 

02 

00717 


LDA 

K101 

2672 

04543 

0 

04 

00651 


STA 

ICS* 

2673 

04544 

0 

02 

00607 


LDA 

TC 


I CS W * I PL 

GO TO STATEMENT ID 

IF TO NOT (, 


GO TO C8D 
T1 * T1 - 1 


IF T1 b o 

INPUT DNA 
GO TO C8B2 
IF TC * , 

* 1 17 ( ’FINISHED* CODE FOR 
TC * COMMA 


GO TO C8C4, 

ELSE* IF TC ■ ’/* 


GO TO C0B4 
IF NOT a , 

GO TO C8A 

INPUT 7 CHARACTERS 
RESTORE CC 
I PL 

ICSR * I PL 


2637 

2638 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

2648 

2649 

2650 

COMMA) 2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 
2661 
2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 
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2674 

04545 

0 07 00672 


SUB 

K5 

IF TC NOT, 

2674 

2675 

04546 

100040 


SZE 



2675 

2676 

04547 

0 01 04563 


JMP 

C8G 

GO TU C8G 

2676 

2677 

04550 

0 02 00720 


LDA 

K102 

ELSE, INPUT 2 CHARS 

2677 

2678 

04551 

0 10 01355 


JST 

! A00 


2678 

2679 

04552 

0 02 01501 


LDA 

I BUF 

IF (A) > *00’ 

2679 

2660 

04553 

0 07 00704 


SUB 

K19 


2660 

2681 

04554 

101040 


SNZ 



2681 

2682 

04555 

0 01 04560 


JMP 

#♦3 


2682 

2683 

04556 

0 10 03116 


JST 

ERQQ 


2683 

2684 

04557 

141715 


BCI 

1 » CM 

COMMA OUTSIDE PARENTHESES, NOT IN DO STMNT » 

2664 

2685 

04560 

0 02 00722 


LDA 

K104 


2665 

2686 

04561 

0 10 05074 


JST 

NPOQ 

FIRST NON-SPEC CHECK 

2666 

2687 

04562 

0 01 05510 


JMP 

C9 

GO TO DO 

2687 

2688 

04563 

0 02 04455 

C8G 

LDA 

C8T1 

1 IF NO ( TO LEFT OF EQUALS 

2688 

2689 

04564 

100040 


SZE 



2689 

2690 

04565 

0 01 06321 


JMP 

G2 

ARITHMETIC ASSIGNMENT STATEMENT 

2690 

2691 

04566 

0 10 02520 


JST 

SYOO 

INPUT SYMBOL 

2691 

2692 

04567 

0 02 04576 


LDA 

C8X9 


2692 

2693 

04570 

0 04 00662 


STA 

cc 

RESTORE CC 

2693 

2694 

04571 

0 02 00655 


LDA 

IU 

IF iU * SUBR 

2694 

2695 

04572 

0 07 QQ721 


SUB 

K103 


2695 

2696 

04573 

100040 


SZE 



2696 

2697 

04574 

0 01 06367 


JMP 

G1 

GO TO ARJTH ST, FUNCT, 

2697 

2698 

04575 

0 01 06321 


JMP 

G2 

OTHERWISE « ASSIGNMENT STATEMENT 

2698 

2699 

04576 

0 00 00000 

C8X9 

PZE 

0 


2699 

2700 



• 




2700 

2701 



• 




2701 

2702 



• 


•i 


2702 

2703 



• 


•STATEMENT IDENTIFICATION# 

2703 

2704 



« 


• 4 


2704 

2705 



« 


READ 

FOUR CHARACTERS AND DETERMINE CORRECT ROUTINE 

2705 

2706 



• 



FOR PROCESSING, THEN CHECK SPELLING ON REST 

2?Q6 

2707 

04577 

0 00 00000 

A9T1 

PZE 

0 


2707 

2708 

04600 

0 00 00000 

A9T2 

PZE 

0 


2708 

?7no 

n 

n nn nnnnn 

W v V V v w V V 

ion 

D7C 

n 


nno 

2710 

04602 

0 02 00722 

A9 

LDA 

K104 


2710 
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2711 

04603 

0 10 01355 

JST 

I AO 0 

2712 

04604 

0 02 01501 

LDA 

I BUF 

2713 

04605 

0 04 00570 

STA 

NAMF 

2714 

04606 

0 02 01502 

LDA 

I BUF*1 

2715 

04607 

0 04 00571 

STA 

NAMF*1 

2716 

04610 

0 02 Q507Q 

LDA 

A9Z9 

2717 

04611 

0 04 00000 

STA 

XR 

2718 

04612 

0 02 00570 A9 A 

LDA 

NAMF 

2719 

04613 

1 07 04732 

SUB 

A9X1+30 , 1 

2720 

04614 

100040 

SZE 


2721 

04615 

0 01 04661 

JMP 

A9F 

2722 

04616 

0 02 00571 

LDA 

NAMF*1 

2723 

04617 

1 07 04770 

SUB 

A9X2+30 i 1 

2724 

04620 

100040 

SZE 


2725 

04621 

0 01 04661 

JMP 

A9F 

2726 

04622 

1 02 05070 

LDA 

A9X4 + 30 f X 

2727 

04623 

0 03 10027 

ANA 

K133 

2728 

04624 

0 04 04577 

STA 

A9tl 

2729 

04625 

1 02 05026 

LDA 

A9X3*30 , 1 

2730 

04626 

0400 63 

LRL 

13 

2731 

04627 

000201 

IAB 


2732 

04630 

0404 75 

LGR 

3 

2733 

04631 

0 04 04600 

STA 

A9T2 

2734 

04632 

000201 

IAB 


2735 

04633 

0 10 05074 

JST 

NPOO 

2736 

04634 

0 02 04577 A9B 

LDA 

A9T1 

2737 

04635 

100040 

SZE 


2738 

04636 

0 01 04640 

JMP 

A9C 

2739 

04637 

•0 01 04600 

JMP* 

A9T2 

2740 


• 



2741 

04640 

0 07 00724 A9C 

SUB 

K106 

2742 

04641 

100400 

SPL 


2743 

04642 

0 01 04654 

JMP 

A9E 

2744 

04643 

0 04 04577 

STA 

A9T 1 

2745 

04644 

0 02 00724 

LDA 

K 10 6 

2746 

04645 

0 04 04601 A9D 

STA 

A9T3 

2747 

04646 

0 10 01355 

JST 

I A00 


3C No, 180463000 RE V , D PAGE 77 


INPUT (4) CHARS 27U 

2712 

NAMF s ISUF 2713 

2714 

2715 

INITIALIZE INDEX for LOOP 2716 

THROUGH THE STATEMENT NAMES 2717 

2718 

2719 

2720 

READ IN REST OF 2721 

CHECK REST OF SPELLING FOR 2722 

2723 

A MATCH ON 4 CHARACTERS 2724 

NOT FOUND 2725 

2726 

2727 

T 1 * NUMBER OF REMAINING CHARACTERS 2728 

LEFT TO CHECK " * 2729 

2730 

2731 

„ 2732 

T2 x ADDRESS OF ROUTINE 2733 

2734 

FIRST NON-SPECIFIC, CHECK -<A) * 2735 

HIERARCHY CODE 2736 

2737 

MUST CHECK MORE CHARACTERS 2738 

FINISHED CHARACTER CHECK, "EXIT TO 2739 

SPECIFIC ANALYZER, 2740 

2741 

2742 

2743 

2744 

REMAINING SPELLING IS CHECKED, 2745 

2746 

2747 
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2748 

04647 

0 07 04601 

SUB 

A9T3 


2748 

2749 

04650 

101040 

SNZ 



2749 

2750 

04651 

0 01 04634 

JMP 

A9B 


2750 

2751 

04652 

0 10 03116 

JST 

ER00 


2751 

2752 

04653 

151720 

BCI 

1,SP 

STATEMENT NAME MISSPELLED 

2752 

2753 

04654 

0 06 00724 A9E 

ADD 

K106 


2753 

2754 

04655 

0 13 04577 

IMA 

A9T1 


2754 

2755 

04656 

140040 

CRA 



2735 

2756 

04657 

0 13 04577 

IMA 

A9T1 


2736 

2757 

04660 

0 01 04645 

JMP 

A9D 


2757 

2758 

04661 

0 12 00000 A9F 

IRS 

XR 

LOOP CONTROL FOR STATEMENT NAMES, 

2738 

2759 

04662 

0 01 04612 

JMP 

A9A 

MORE NAMES * CONTINUE LOOP 

2759 

2760 

04663 

0 02 00607 

IDA 

TC 


2760 

2761 

04664 

0 07 00756 

SUB 

CRET 


2761 

2762 

04665 

100040 

SZE 



2762 

2763 

04666 

0 01 04672 

JMP 

A9G 


2763 

2764 

04667 

0 02 00071 

LDA 

LSTN 

TC ■ C/R 

2764 

2765 

04670 

101040 

SNZ 



2765 

2766 

04671 

0 01 04353 

JMP 

C7 

AND LSTN ■ 0 - INPUT NEW STATEMENT 

2766 

2767 

04672 

0 10 03116 A9G 

JST 

EROO 


2767 

2768 

04673 

144704 

BCI 

1,ID 

UNRECOGNIZED STATEMENT 

2768 

2769 

04674 

144716 A9X1 

BCI 

10, INREDOCOUOFUSUBLEXDI 

2769 


04675 

151305 






04676 

142317 






04677 

141717 






04700 

146317 






04701 

143325 






04702 

151725 






04703 

141314 






04704 

142730 






04705 

142311 





2770 

04706 

141717 

BCI 

10,COEQGOCARECOFOIFWRRE 

2770 


0 4 70 7 

142721 






04710 

143717 






04711 

141701 






0 4712 

1 51 30 5 






04713 

141717 
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04714 

143317 



04715 

144706 



04716 

153722 



04717 

151305 



2771 04720 

141301 

SCI 

7,BAENREENASSTPA 

04721 

142716 



04722 

151305 



04723 

142716 



04724 

140723 



04725 

151724 



04726 

150301 



2772 04727 

142301 

BCI 

2 # DATR 

04730 

152322 



2773 04731 

150322 

SCI 

1 # PR 

2774 04732 

152305 

A9X2 BCI 

10» TEAL UBMPG INC BKQCTEMfc 

04733 

140714 



04734 

152702 



04735 

146720 



04736 

1437H 



04737 

147303 



04740 

141322 



04741 

147703 



04742 

152305 



04743 

146705 



2775 04744 

146715 

BCI 

10#MMUITOLLTUNTRM( I TAD 

04745 

152711 



04746 

152317 



04747 

146314 



04750 

152325 



04751 

147324 



04752 

151315 



04753 

124240 



04754 

144724 



04755 

140704 



2776 04756 

141713 

SCI 

3 » CKDFW I 

04757 

142306 



04760 

153711 




2771 


2772 

2773 

2774 


2775 


2776 
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2777 

04761 

142215 

OCT 

142215 

2778 

04762 

151711 

BC 1 

3# S I OPUS 


04763 

147720 




04764 

152723 



2779 

04765 

152301 

BCI 

2, TAAC 


04766 

140703 



2780 

04767 

144716 

BC! 

1. IN 

2781 

04770 

0 

011101 

A9X3 DAC 

A3 

2782 

04771 

0 

011103 

DAC 

A4 

2783 

04772 

0 

011105 

DAC 

A5 

2784 

04773 

0 

011107 

DAC 

A6 

2785 

04774 

0 

011111 

DAC 

A7 

2786 

04775 

0 

011042 

DAC 

Ri 

2787 

04776 

0 

011044 

DAC 

R2 

2788 

04777 

0 

012303 

DAC 

R3 

2789 

05000 

0 

011145 

DAC 

B2 

2790 

05001 

0 

011154 

DAC 

B3 

2791 

05002 

0 

011253 

DAC 

B4 

2792 

05003 

0 

011335 

DAC 

B5 

2793 

05004 

-0 

005334 

DAC* 

R7 

2794 

05005 

-0 

006301 

DAC* 

R8 

2795 

05006 

-0 

006330 

DAC* 

R9 

2796 

05007 

-0 

005026 

DAC* 

CONT 

2797 

05010 

-0 

005771 

DAC* 

V2 

2798 

05011 

-0 

005210 

DAC* 

V3 

2799 

05012 

•0 

005552 

DAC* 

V4 

2800 

05013 

• 0 

005543 

DAC* 

V5 

2801 

05014 

-0 

005526 

DAC* 

V 6 

2802 

05015 

-0 

005533 

DAC* 

V7 

2803 

05016 

-0 

005335 

DAC* 

V 8 

2804 

05017 

0 

026444 

DAC 

W5* * 20000 

2805 

05020 

•0 

005443 

DAC* 

W3 

2806 

05021 

m 0 

006233 

DAC* 

W7 

2807 

05022 

•0 

006274 

DAC* 

W 8 

2808 

05023 

1 

011762 

DAC 

W4,l 

on no 

fc W V * 

ncnOi 

v w fc 

Jm 

rt 14-1 

V V4 V 4 y 

n i n m 

U w 

» n i r» . ■ n ft a 

1 HAW* T £ y y 

2810 

05025 

-0 

005753 

DAC* 

V10 


I), C/R 2777 

2778 


2779 

2780 

2781 

2782 
2*83 
2784 
278$ 

2786 

2787 

2788 

2789 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 

2800 
2801 
2802 

2803 

2804 

2805 

2806 

2807 

2808 

THaCE STATEMENT 2809 

281 U 
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2811 



• 






2811 

2812 



• 






2812 

2813 



* 


• CONTINUE: STATEMENT PROCESSOR# 


2813 

2814 



« 




* * 


2814 

2815 

05026 

0 02 00073 

CONT 

LDA 

LSTP 

ACCOUNTS FOP 

POSSIBLE PATH ERROR 

2815 

2816 

05027 

0 06 00071 


ADD 

LSTN 

ACCOUNTS FOR 

POSSIBLE PATH ERROR 

2816 

2817 

05030 

0 04 00073 


STA 

LSTP 

ACCOUNTS FOR 

POSSIBLE PATH ERROR 

2817 

2818 

05031 

0 01 04271 


JMP 

C6 




2816 

2819 



• 






2819 

2620 





-•--THE FOLLOWING 

TABLE IS USED 

BY 

statement id 

2820 

2821 



#« • • « 


— —(RIGHT 6 BITS) 

AND OUTPUT ITEM, 


2821 

2822 

05032 

000003 

A9X4 

OCT 

000003 

(00) 



2822 

2823 

05033 

030100 


OCT 

030100 

(01) ♦ 


( AS— ) 

2823 

2824 

05034 

032313 


OCT 

032313 

(02) - 


CSS--) 

2824 

2825 

05035 

031503 


OCT 

031503 

(03) # 


(MS--) 

2825 

2826 

05036 

030403 


OCT 

030403 

(04) / 


(DS— ) 

2826 

2827 

05037 

000004 


OCT 

000004 

(05) , NOT , 



2827 

2828 

05040 

000006 


OCT 

000006 

(06) .AND. 



2828 

2829 

05041 

031405 


OCT 

031405 

(07) .OR, 


(LS-, 

2829 

2830 

05042 

000004 


OCT 

000004 

(10) ,lt, 



2830 

2831 

05043 

000005 


OCT 

000005 

(11) , LE , 



2831 

2832 

05044 

000002 


OCT 

000002 

(12) * EQ , 



2632 

2833 

05045 

000007 


OCT 

000007 

(13) , GE , 



2833 

2834 

05046 

000000 


OCT 

oooooo 

(14) , GT . 



2834 

2835 

05047 

000000 


OCT 

000000 

(15) ,NE, 



2BJ5 

2836 

05050 

031003 


OCT 

031003 

(16) s 


(H$— ) 

2836 

2837 

05051 

000005 


OCT 

000005 

(17) , 



2837 

2838 

05052 

030503 


OCT 

030503 

(20) »E’ 


(E$— ) 

2838 

2839 

05053 

031600 


OCT 

031600 

(21) ’C ’ 


NCS-- ) 

2839 

2840 

05054 

000001 


OCT 

000001 

(22) *A» 



2840 

2841 

05055 

000000 


OCT 

oooooo 

(23) 



2841 

2842 

05056 

000005 


OCT 

000005 

(24) »X» 



2842 

2843 

05057 

000003 


OCT 

000003 

(25) »H» 



2843 

2844 

05060 

000002 


OCT 

000002 

(26) * L * 



2844 

2845 

05061 

000000 


OCT 

OOOOOO 

(27) »P 



2645 

2846 

05062 

000002 


OCT 

000002 

(30) f T* 



2846 

2847 

05063 

031400 


OCT 

031400 

(31) »F» 


(L$— > 

2847 
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2848 05064 

2849 05065 

2850 05066 

2851 05067 

2852 05070 

2853 

2854 

2855 

2856 

2857 

2858 

2859 

2860 05071 

2861 

2862 05072 

2863 05073 

2864 05074 

2865 05075 

2866 05076 

2867 05077 

2868 05100 

2869 05101 

2870 05102 

2871 05103 

2872 05104 

2873 05105 

2874 05106 

2875 05107 

2876 05110 

2877 05111 

2878 05112 

2879 05113 

2880 05114 

2881 

2882 05115 

2883 05116 

2884 05117 


• C210-Q01-66Q1 (FRTN) 3C NO. 180463000 


RfcV, O PAQb 62 


000001 

OCT 

000001 

000000 

OCT 

000000 

000001 

OCT 

000001 

000001 

OCT 

000001 

1 177742 

A9Z9 DAC« 

•30 # 1 


(32) *Q* 


NO, OF ITEMS IN STMNT NAME TABLE 


•FIRST NON-SPEC CHECK* 


0 00 00000 

TONP PZB 

0 

005071 

NPTO EQU 

TONP 

0 00 ooooo 

T2NP PZE 

0 

0 00 ooooo 

T1NP PZE 

0 

0 oooooo 

NPOO DAC 

#* 

0 04 05071 

STA 

NPTO 

0 02 00040 

LDA 

A 

0 04 05073 

STA 

T1NP 

0 02 05071 

LDA 

NPTO 

0 11 00725 

CAS 

K10 7 

0 01 05104 

JMP 

*♦2 

0 01 05115 

JMP 

NP10 

0 11 00051 

CAS 

SPF 

0 01 05154 

JMP 

NP3Q 

0 01 05142 

JMP 

NP25 

0 02 00607 

LDA 

TC 

0 07 00756 

SUB 

CRET 

101040 

SNZ 


0 01 05115 

JMP 

NP10 

0 10 03116 

JST 

EROO 

142730 

BCI 

£ 

1 # EX 

0 02 00071 

NP10 LDA 

LSTN 

0 Q4 0QQ4Q 

ST* 

* 

101040 

SNZ 



AT FIRST SHIFT IN LEVEL FROM ZERO# WRAP-UP 
SPECIFICATION STATEMENTS 


TO ■ (A) 

T1 « A 
a 7 

TRACE STMNT, (MAY OCCUR ANYWHERE) 
TO , G,R, SPF , GO TO NP30 
TO « SPF# GO TO NP25 

IF TC « C/R 
GO TO NPlo 


ELSE# ILLEGAL STATEMENT 
SPECIFICATION STATEMENT APPEARS AFTE 
SPECIFICATION STATEMENT ‘ CLEAN-UP 

A » L5TN 


2848 

2849 

2850 

2851 

2852 

2853 

2854 

2855 

2856 

2857 

2858 
2899 
2860 
2961 
2862 

2863 

2864 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2873 

2874 

2875 

2876 

2877 

2878 

2879 

2880 
2681 
2882 

2883 

2884 
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63 

2885 

05120 

0 01 05135 


JMP 

NP16 

IF ZtRO, RETURN 


2885 

2886 

05121 

0 10 03656 


JST 

FAOO 

FETCH ASSIGNS 


2886 

2887 

05122 

0 02 00721 


LDA 

K103 

5TH-WEL 


2887 

2888 

05123 

0 07 00631 


SUB 

AT 



2888 

2889 

05124 

100040 


SZE 




2889 

2890 

05125 

0 01 05140 


JMP 

NP20 



2890 

2891 

05126 

0 02 00630 


LDA 

AF 



2891 

2892 

05127 

0 10 14135 


JST 

OSOO 

OUTPUT STRING RPL 


2892 

2893 

05130 

0 10 04233 

NH15 

JST 

LOOO 

DEFINE LOCATION 


2893 

2894 

05131 

0 02 00570 


lda 

NiAMF 



2894 

2895 

05132 

0 07 04714 


SUB 

A9X1+16 



2895 

2896 

05133 

100040 


SZE 




2896 

2897 

05134 

0 10 13663 


JST 

TRSE 

OUTPUT TRACE COUPLING 


2897 

2898 

05135 

0 02 U5Q73 

NP16 

LDA 

T1NP 



2898 

2899 

05136 

0 04 00040 


STA 

A 



2899 

2900 

05137 

-0 01 05074 


JMP* 

NPQO 



2900 

2901 

05140 

0 10 02574 

NP2Q 

JST 

NRQO 

NON-REL TEST 


2901 

2902 

05141 

0 01 05130 


JMP 

NP15 



2902 

2903 

05142 

0 02 00070 

NP25 

LDA 

LIF 



2903 

2904 

05143 

100040 


SZE 




2904 

2905 

05144 

0 01 05135 


JMP 

NP16 



2905 

2906 

05145 

0 02 OQ073 


LDA 

LSTP 

IF LSTP ♦ LSTN *0 


2906 

2907 

05146 

0 06 00071 


ADD 

LSTN 



2907 

2908 

05147 

100040 


SZE 




2906 

2909 

05150 

0 01 05115 


JMP 

NP10 



2909 

2910 

05151 

0 12 00073 


IRS 

LSTP 



2910 

2911 

05152 

0 10 03116 


JST 

EROO 

*\U PATH’ ERROR 


2911 

2912 

05153 

150310 


B C 1 

1 # PH 

NO PATH LEADING TO THE STATEMENT 


2912 

2913 

05154 

0 02 00051 

NP30 

LDA 

SPF 

IF SPF 0 0 


2913 

2914 

05155 

100040 


SZE 




2914 

2915 

05156 

0 01 05175 


JMP 

NP37 



2915 

2916 

05157 

0 02 00607 

NP32 

LDA 

TC 



2916 

2917 

05160 

0 04 05072 


STA 

T2NP 

T2 « TC 


2917 

2918 

05161 

0 02 00060 


LDA 

RPL 



2918 

2919 

05162 

0 04 00055 


STA 

XST 

XST * RPL 


2919 

2920 

05163 

0 02 00061 


LDA 

BDF 

BLOCK DATA SUBPROGRAM FLAG 


2920 

2921 

05164 

100040 


SZE 


skip if not block data subprogram : 


2921 
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2922 05165 

2923 05166 

2924 05167 

2925 05170 

2926 05171 

2927 05172 

2928 05173 

2929 05174 

2930 05175 

2931 05176 

2932 05177 

2933 05200 

2934 05201 

2935 05202 

2936 05203 

2937 05204 

2938 05205 

2939 05206 

2940 05207 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 05210 

2953 05211 

2954 05212 

2955 05213 

2956 05214 

2957 05215 

2958 05216 


0 

01 

11375 


JMP 

C2 

0 

04 

00040 


STA 

A 

0 

02 

13733 


LDA 

OM I 5 

0 

04 

00640 


STA 

DF 

0 

10 

14127 


JST 

OAOO 

0 

01 

11375 


JMP 

C2 

0 

02 

05072 

NP35 

LDA 

T2NP 

0 

04 

00607 


STA 

TC 

0 

02 

05071 

NP37 

LDA 

TONP 

0 

04 

00051 


STA 

SPF 

0 

07 

00722 


SUB 

K104 

100040 


SZE 


0 

01 

05115 


JMP 

NP10 

0 

04 

00040 

NP4Q 

STA 

A 

0 

02 

00055 


LDA 

XST 

0 

10 

14135 


JST 

OSOO 

0 

02 

00060 


LDA 

RPL 

0 

04 

00055 


STA 

XST 

0 

01 

05115 


JMP 

NP10 


GO TO RELATE COMMON 

SET LISTING FOR OCTAL AODR, 

JMP INSTRUCTION 

SET LISTING FOR SYMBOLIC INSTR, 
OUTPUT ABSOLUTE 
GO TO RELATE COMMON 


SPF = TO 


SET LISTING FOR OCTAL ADDR , 
LOCATION OF INITIAL JUMP 
OUTPUT STRING 

XST s r pi 
GO TO NP1Q 


* I F ( PROCESSOR* 


0 10 02354 V3 JST 
101040 SNZ 
0 01 05220 JMP 
0 02 00643 LDA 
100040 SZE 
n ni rn99n iud 

0 10 03116 V3Q8 JST 


ARITHMETIC IF (SI $2 *3) 

IF 12 NOT » S3, JZE S2 
IF S3 NOT a $i, jpl S3 

<IF SI NOT a NEXT ST No,, JMP SI) LATER 
LOGICAL IF 

OUTPUT JZE 77777 (FOR STRINGING AROUND 
IMBEDDED STATEMENT) 


1100 

INPUT 

ITEM 

V310 

I P * 0 

(POSSIBLE UNARY ♦ OR •) 

DFL 



\t l* n 
r v 

r~ t n r* ▼ 

r l o ] 

ITEM IN EXPRESSION u,r\, 

EROO 

error , 

•••, IF (SENSE SWITCH,, ETC) 


2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

2931 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 

2949 

2950 

2951 

2952 

2953 

2954 

2955 

2956 

2957 
295b 
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* C21Q-0Q1-66Q1 ( FRTN ) 


2959 

05217 

144706 


BCI 

1* IF 

2960 

05220 

140040 

V310 

CRA 


2961 

05221 

0 

10 

07041 


JST 

EXOO 

2962 

05222 

0 

02 

00671 


LDA 

K4 

2963 

05223 

0 

10 

02547 


JST 

TSOO 

2964 

05224 

140040 


CRA 


2965 

05225 

0 

04 

00040 


STA 

A 

2966 

05226 

0 

04 

00000 


STA 

0 

2967 

05227 

0 

02 

00045 


LDA 

MFL 

2968 

05230 

0414 

67 


LGL 

9 

2969 

05231 

1 

04 

15400 


STA 

DP, 1 

2970 

05232 

0 

10 

13663 


JST 

TRSE 

2971 

05233 

0 

02 

00045 


LDA 

MFL 

2972 

05234 

0 

07 

00721 


SUB 

K103 

2973 

05235 

100040 


SZE 


2974 

05236 

0 

01 

05253 


JMP 

V320 

2975 

05237 

0 

02 

00070 


LDA 

LIF 

2976 

05240 

100040 


SZE 


2977 

05241 

0 

01 

05216 


JMP 

V306 

2978 

05242 

0 

04 

00630 


STA 

AF 

2979 

05243 

0 

02 

13741 


LDA 

OMJ2 

2980 

05244 

0 

10 

14127 


JST 

OAOO 

2981 

05245 

0 

02 

00060 


LDA 

RPL 

2982 

05246 

Q 

04 

00070 


STA 

LIF 

2983 

05247 

0 

02 

13733 


LDA 

OMI 5 

2984 

05250 

0 

10 

14127 


JST 

OAOO 

2985 

05251 

0 

10 

02525 


JST 

XNO 0 

2986 

05252 

0 

01 

04456 


JMP 

ce 

2987 





• 



2986 

05253 

0 

07 

00720 

V320 

SUB 

K102 

2989 

05254 

101040 


SNZ 


2990 

05255 

0 

01 

05216 


JMP 

V308 

2991 

05256 

0 

02 

05321 


LDA 

V356 

2992 

05257 

0 

04 

00041 


STA 

I 

2993 

05260 

0 

10 

02443 

V 324 

JST 

ISOO 

2994 

05261 

0 

10 

02676 


JST 

STX I 

2995 

05262 

0 

02 

00040 


LDA 

A 


3C NO.i80463Ui3U REV, D PAGE 85 


ILLEGAL IF STATEMENT TYPE 2959 

(A)»0 2960 

EXPRESSION EVALUATOR 2961 

2962 

) -TEST 2963 

2964 

SET A TO SPECIAL ( IF) ENTRY IN DATA POOL 2965 

2966 

SET MODE OF EXPRESSION INTO SPECIAL (IF) 2967 

2968 

2969 

OUTPUT TRACE COUPLING (IF NECESSARY) 2970 

CHECK MODE FLAG FOR LOGICAL 2971 

2972 

2973 

ARITHMETIC IF 2974 

2975 

2976 

2977 

SET AUDR OF SNZ AND JMP I NS TR TO 00000 2978 

■SNZ INSTR, 2979 

OUTPUT ABSOLUTE 2980 

SET LIF«CURRENT ♦DDR, (STRING tfACK) 2981 

2982 

■JMP 0 INSTR, 2983 

OUTPUT ABSOLUTE 2984 

GO TO NEXT INPUT LINE 2985 

GO TO STATEMENT SCAN 2986 

2987 

CHECK FOR MODE * COMPLEX 2988 

2989 

.ERROR, . , .COMPLEX MODE EXPRESSION 2990 

1-3 2991 

2992 

INPUT STATEMENT NUMBER 2993 

SET I 'jDEX TO I 2994 

2995 
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» C210-Q01 

-6601 ( F R T N ) 

3C ^C.1804630u0 REV, L; 

PAGE 56 

2996 

05263 

1 

04 

05334 


STA 

T1 V3 + 3 * 1 

SAVb BRANCH ADDRESSES 

2996 

2997 

05264 

0 

12 

00041 


IRS 

I 

1*1*1 

2997 

2998 

05265 

0 

01 

05316 


JMP 

V350 

CHECK FOR TERMINAL COMMA 

2998 

2999 

05266 

0 

02 

05333 


IDA 

T3V3 


2999 

3000 

05267 

0 

11 

05332 


CAS 

T2V3 

CHECK FOR ADDR-2 * ADDR-3 

3000 

3001 

05270 

0 

01 

05272 


JMP 

#♦2 


3001 

3002 

05271 

0 

01 

05302 


JMP 

V330 

ADUR-2 s ADDR-3 

3002 

3003 

05272 

140040 


CRA 



3003 

3004 

05273 

0 

04 

00040 


STA 

A 


3004 

3005 

05274 

0 

02 

13741 


LDA 

0MJ2 

*SN2 INSTR. 

3005 

3006 

05275 

0 

04 

00640 


STA 

DF 


3006 

3007 

05276 

0 

10 

14127 


JST 

0A00 

OUTPUT ABSOLUTE 

3007 

3008 

05277 

0 

02 

05332 


LDA 

T2V3 


3008 

3009 

05300 

0 

10 

05322 


JST 

V36Q 

OUTPUT A JMPUDDR-2) INSTR, 

3009 

3010 

05301 

0 

02 

05333 


LDA 

T3V3 


3010 

3011 

05302 

0 

11 

05331 

V330 

CAS 

T1V3 

CHECK FOR ADDR-3 * ADDR-2 

3011 

3012 

05303 

0 

01 

05305 


JMP 

• ♦2 


3012 

3013 

05304 

0 

01 

05313 


JMP 

V340 

ADDR-3 * ADDR-1 

3013 

3014 

05305 

140040 


CRA 



3014 

3015 

05306 

0 

04 

00040 


STA 

A 


3015 

3016 

05307 

0 

02 

13742 


LDA 

0MJ3 

*SM I INSTR, 

3016 

3017 

05310 

0 

10 

14127 


JST 

OAQO 

OUTPUT ABSOLUTE 

3017 

3018 

05311 

0 

02 

05333 


LDA 

T3V3 


3018 

3019 

05312 

0 

10 

05322 


JST 

V360 

OUTPUT A JMP (ADDR-3) INSTR, 

3019 

3020 

05313 

0 

02 

05331 

V 340 

LDA 

T1V3 


3020 

3021 

05314 

0 

04 

00053 


STA 

IFF 

SET IFF * ADDR-1 

3021 

3022 

05315 

0 

01 

04264 


JMP 

C5 

GO TO ILL-TERM 

3022 

3023 





• 




3023 

3024 

05316 

0 

02 

00672 

V 350 

LDA 

K 5 


3024 

3025 

05317 

0 

10 

02547 


JST 

TSO 0 

COMMA TEST 

3025 

3026 

05320 

0 

01 

05260 


JMP 

V324 

INPUT NEXT STATEMENT NO, 

3026 

3027 





• 




3027 

3028 

05321 

177775 

V 356 

OCT 

177775 

-3 

3028 

3029 





• 




3029 

3030 





# - - - . 



TO OUTPUT A RELATIVE JMP 

3030 

t n ^ i 

W V V4 

V V fc- «. 

V 

WWW 

V w w 

ii X £. r\ 

▼ w u V 

n i n 

U 

W w 


3031 

3032 

05323 

0 

04 

00040 


STA 

A 

SET AD UR, OF JUMP REF, TO A 

3032 
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3033 

05324 

140040 


CRA 



3033 

3034 

05325 

000201 


IAB 


SET (8) s o 

3U34 

3035 

05326 

0 02 13733 


LDA 

0MI5 

SET (A) s JMP INSTR, 

3035 

3036 

05327 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

3036 

3037 

05330 

-0 01 05322 


JMP» 

V360 

EXIT 

3037 

3038 



• 




3038 

3039 

05331 

0 00 00000 

T1V3 

*•« 

• • 

AUDH-1 

3039 

3040 

05332 

0 00 00000 

T2V3 

«•* 

• # 

AD0R-2 

3040 

3041 

05333 

0 00 ooooo 

T3V3 

*•• 

• • 

ADDR-3 

3041 

3042 



• 




3042 

3043 



• 


••••••ft 


3043 

3044 



• 


•GO TO* 


3044 

3045 



* 




3045 

3046 



* 


CHECK FOR NORMAL CR740), COMPUTED (R710) OR 

3046 

3047 



• 


ASSIGNED 

(R730). INPUT BRANCH LIST USED BY BOTH 

8047 

3048 



• 


R710 AND 

R730 FOR STATEMENT NO. LIST, 

304a 

3049 



• 




3049 

3050 



• 




3050 

3051 

05334 

0 10 02525 

R7 

JST 

XNOO 

examine next char 

8051 

3052 

05335 

100040 


SZE 



3052 

3053 

05336 

0 01 05343 


JMP 

R78 

GO TO I cST DFL 

3053 

3054 

05337 

0 10 02443 


JST 

ISOO 

INPUT STMNT * 

3054 

3055 

05340 

0 02 00040 


LDA 

A 

(GO To 20) 

30 55 

3056 

05341 

0 04 00053 


STA 

IFF 

IFF * A 

3056 

3057 

05342 

0 01 04264 


JMP 

C5 

GO TO ILLTERM 

3057 

3058 

05343 

0 02 00643 

R78 

LDA 

DFL 


3058 

3059 

05344 

100040 


SZE 



3059 

3060 

05345 

0 01 05356 


JMP 

R7D 


3060 

3061 

05346 

0 10 02437 


JST 

IRQO 

GO TO I (io, 20, 30) 

3061 

3062 

05347 

0400 40 


LRL 

32 


3062 

3063 

05350 

0 02 13740 


LDA 

K206 

OUTPUT JMpft INSTRUCTION 

3063 

3064 

05351 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

3064 

3065 

05352 

0 02 00752 


LDA 

K134 


3065 

3066 

05353 

0 10 02547 


JST 

TSO 0 

, TEST 

3066 

3067 

05354 

0 10 05414 


JST 

I BO 0 

INPUT BRANCH LIST 

3067 

3068 

05355 

0 01 04262 


JMP 

86 

GO TO JUMP 

3068 

3069 

05356 

0 10 05414 

R7D 

JST 

I BO 0 

INPUT BRANCH u I S T UC TO (10,11,12), I 

3069 
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* C210-001 

-6601 (FRTN) 

3C .m 0,180463 QUO HfcV, D 

PALjC 

6b 

3070 

05357 

0 

02 

00752 


LDA 

K134 



3070 

3071 

05360 

0 

10 

02547 


JST 

TS00 

, TEST 


3071 

3072 

05361 

0 

10 

02437 


JST 

IROO 

INPUT INT VAR 


3072 

3073 

05362 

0400 

40 


LRL 

32 



3073 

3074 

05363 

0 

02 

13735 


LDA 

K200 

OUTPUT LDA 


3074 

3075 

05364 

0 

10 

12467 


JST 

OBOO 

OUTPUT OA 


3075 

3076 

05365 

140040 


CRA 




3076 

3077 

05366 

0 

04 

00040 


STA 

A 



3077 

3078 

05367 

0 

04 

00630 


STA 

AF 

CAUSE OCTAL ADDRESS IN LISTING 


3078 

3079 

05370 

0 

02 

05442 


LDA 

K75 



3079 

3080 

05371 

0 

10 

14127 


JST 

OAOO 

OUTPUT ABS (STA 0) - INDEX LOAD 


3080 

3081 

05372 

0 

02 

00060 


LDA 

RPL 



3081 

3082 

05373 

0 

04 

00630 


STA 

AF 

CAUSE RPL TO BE IN LISTING 


3082 

3083 

05374 

0 

02 

13753 


LDA 

K207 



3083 

3084 

05375 

0 

10 

13773 


JST 

OROO 

OUTPUT RELATIVE (JMP RPL.l) 


3084 

3085 

05376 

0 

02 

00113 


LDA 

LO 



3085 

3086 

05377 

0 

07 

00717 

R7F 

SUB 

K101 



3086 

3087 

05400 

0 

04 

00041 


STA 

I 

I * L (0) 


3087 

3088 

05401 

0 

10 

02676 


JST 

STX I 



3088 

3089 

05402 

1 

02 

15400 


LDA 

DP * 1 



3089 

3090 

05403 

0 

04 

00040 


STA 

A 



3090 

3091 

05404 

0 

10 

02672 


JST 

STX A 



3091 

3092 

05405 

101040 


SNZ 




3092 

3093 

05406 

0 

01 

04262 


JMP 

B6 

FINISHED LOOPING ON LIST 


3093 

3094 

05407 

0410 

60 


LLL 

16 



3094 

3095 

05410 

0 

02 

13733 


LDA 

K201 

OUTPUT JMP INSTRUCTIONS 


3095 

3096 

05411 

0 

10 

12467 


JST 

OBOO 

OUTPUT OA (JMP 0) 


3096 

3097 

05412 

0 

02 

00041 


LDA 

I 



3097 

3098 

05413 

0 

01 

05377 


JMP 

R7F 



3098 

3099 





• 



• ••••• 


3099 

3100 





• 


•INPUT BRANCH 

LIST# 


3100 

3101 





• 





3101 

3102 





» 


INPUT STATEMENT 

no, lists for go to processor 


3102 

3103 

05414 

0 

000000 

180 0 

DAC 

• « 



3103 

3104 

05415 

0 

02 

00113 


LDA 

LO 



3104 

3i ns 

n54i a 

0 

nj 

nn7i 7 


cub 

U 1 1 1 1 



si nsi 

3106 

05417 

0 

04 

00041 


STA 

I 

I = LU-1 


3106 
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3107 05420 
3103 05421 

3109 05422 

3110 05423 

3111 05424 

3112 05425 

3113 05426 

3114 

3115 05427 

3116 05430 

3117 05431 

3118 05432 

3119 05433 

3120 05434 

3121 05435 

3122 05436 

3123 05437 

3124 05440 

3125 05441 

3126 05442 

3127 

3128 

3129 

3130 

3131 

3132 

3133 05443 

3134 05444 

3135 05445 

3136 05446 

3137 05447 

3138 05450 

3139 05451 

3140 05452 

3141 05453 

3142 05454 

3143 05455 


* C210-0Q1-66Q1 (FRTN) 


0 

10 

01256 


JST 

CHOO 

0 

02 

00702 


LDA 

K17 

0 

10 

02547 


JST 

TSO 0 

0 

10 

02443 

1310 

JST 

I SOO 

0 

10 

02676 


JST 

STX I 

0 

02 

00040 


LDA 

A 

1 

04 

15400 


STA 

DP.l 

0 

02 

00041 


LDA 

I 

0 

07 

00717 


SUB 

K101 

0 

04 

00041 


STA 

I 

0 

02 

00607 


LDA 

TC 

0 

07 

00672 


SUB 

K5 

101040 


SNZ 


0 

01 

05423 


JMP 

1810 

140040 


CRA 

1 

04 

15377 


STA 

DP-1,1 

0 

10 

02555 


JST 

IPOO 

0 

01 

05414 


JMP* 

I BOO 

0 

04 

00000 

K75 

STA 

0 


3C wo. 180 4630 00 REV. D 

INPUT CHAR 

(- TbbT 
INPUT STHNT b 

SET POINTER OF ST, NO, INTO TRIAD TABLE 
AREA 

DP (J) = A 
I * 1-1 

IF TC s , GO TO 1910 

CONTINUE loop 

set end flag into table 

)• INPUT OPEN 
EXIT 


PAGfc 


0 10 02443 W3 JST 
0 02 00040 LDA 
0 04 05506 STA 
0 02 00607 LDA 
0 07 00705 SUB 
100040 SZE 
0 01 05460 JMP 
0 04 00040 STA 
0 10 01256 JST 
0 02 00607 LDA 
0 07 00706 SUB 


♦ASSIGN# 

CHECK TO SEE THAT * TO f IS INCLUDED PROPERLY 
I SOO INPUT STHnT 8 

T1W3 SAVE A 

TC 

K34 CHECK FOR TO 

w305 CLEAR A FOR OUTPUT REL 

J linn CAUSE OCTAL ADDRESS IN LIST 

CHUQ INPUT CHAR 

TC 
K35 


89 


3107 

3108 

3109 

3110 

3111 

3112 

3113 

3114 

3115 

3116 

3117 

3118 

3119 

3120 

3121 

3122 

3123 

3124 

3125 

3126 

3127 

3128 

3129 

3130 

3131 

3132 

3133 

3134 

3135 

3136 

3137 

3138 

3139 

3140 

3141 

3142 

3143 



HON 


3144 05456 

3145 05457 

3146 05460 

3147 05461 

3148 05462 

3149 05463 

3150 05464 

3151 05465 

3152 05466 

3153 05467 

3154 05470 

3155 05471 

3156 05472 

3157 05473 

3158 05474 

3159 05475 

3160 05476 

3161 05477 

3162 05500 

3163 05501 

3164 05502 

3165 05503 

3166 05504 

3167 05505 

3168 05506 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 05507 

3177 05510 

3178 05511 

3179 05512 

3180 05513 
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101040 

0 01 05462 


SNZ 

JMP 

*♦3 

0 10 03116 

W305 

JST 

ERQO 

152317 


BCI 

If TO 

0 02 00060 


LDA 

RPL 

0 06 00720 


ADD 

K102 

0 04 00630 


STA 

A F 

0 02 13735 


LDA 

K200 

0 10 13773 


JST 

OROO 

0 02 00060 


LDA 

RPL 

0 06 00720 


ADD 

K102 

0 04 00630 


STA 

AF 

0 02 13733 


LDA 

K2Q1 

0 10 13773 


JST 

OROO 

0400 40 


LRL 

32 

0 02 05506 


LDA 

T1W3 

0 04 00040 


STA 

A 

140040 

0 10 12467 


CRA 

JST 

OBOO 

0 10 02437 


JST 

IROO 

0400 40 


LRL 

32 

0 02 13736 


LDA 

K202 

0 10 12467 


JST 

OBOO 

0 01 04266 


JMP 

Al 

0 00 00000 

T1W3 

PZE 

#♦ 


ERROR 

GO TO IN ASSIGN STATEMENT 


OUTPUT REL LUA **2 
OUTPUT IDA *+2 

output rel 


OUTPUT REL JMP **2 
OUTPUT OA 


RESTORE A 

OUTPUT QAC ST. NO. 
INPUT INTEGER VARIABLE 

OUTPUT STA INSTRUCTION 
OUTPUT OA 
GO TO C/R TEST 
TEMP STORE 


♦DO STATEMENT PROCESSOR* 

STACK INFO IN DO TABLE* OUTPUT DO INITIAL 
CODE 


00 

00000 

C9TU 

PZE 

#♦ 

10 

02443 

C9 

JST 

ISOO 

10 

02574 


JST 

NROO 

02 

00040 


LDA 

A 

04 

05507 


STA 

C9T0 


INPUT STATEMENT * 
NON-REL TEST 

Tu * A 


3144 

3145 

3146 

3147 

3148 

3149 
315U 

3151 

3152 

3153 

3154 

3155 

3156 
3197 

3158 

3159 

3160 

3161 

3162 

3163 

3164 

3165 

3166 

3167 

3168 

3169 

3170 

3171 

3172 

3173 

3174 

3175 

3176 

3177 

3178 

3179 
318U 
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3101 

05514 

0 10 01251 


JST 

ucoo 

3182 

05515 

0 10 02437 


JST 

I R00 

3183 

05516 

0 02 05525 


LDA 

C951 

3184 

05517 

0 10 02547 


JST 

TSOO 

3185 

05520 

0 02 05507 


LDA 

C9T0 

3106 

05521 

000201 


I AB 


3187 

05522 

0 10 06702 


JST 

DPOQ 

3188 

05523 

0 10 06747 


JST 

DSOO 

3189 

05524 

0 01 04264 


JMP 

C5 

3190 

05525 

000016 

C951 

OCT 

16 

3191 



• 



3192 



• 



3193 



* 



3194 



• 


•END FILE* 

3195 



• 



3196 



• 



3197 



• 


•BACKSPACE* 

3198 



• 


•rewind • 

3199 



• 



3200 

05526 

0 02 05537 

V6 

LDA 

K71 

3201 

05527 

0 04 00571 

V6A 

STA 

NAMF ♦! 

3202 

05530 

0 10 02722 


JST 

NFQQ 

3203 

05531 

0 10 12337 


JST 

0 1 0 o 

3204 

05532 

0 01 04266 


JMP 

A1 

3205 

05533 

0 02 05540 

V7 

LDA 

K72 

3206 

05534 

0 01 05527 


JMP 

V6A 

3207 

05535 

0 02 05541 

V8 

LDA 

K73 

3208 

05536 

0 01 05527 


JMP 

V6A 

3209 

05537 

143316 

K71 

8CI 

i#fn 

3210 

05540 

142316 

K72 

BCI 

1 1 DN 

3211 

05541 

141316 

K73 

SCI 

1 # 9 N 

3212 



• 



3213 



• 



3214 



• 



3215 



• 


• READ 

3216 



• 


•WRITE 

3217 



• 


•INPUT FORM 


30 '^0. 180463000 

KfcV, D 

HAbL 91 

UNINPUT COLUMN 


3181 

3182 

3183 

3184 

(A) = TO 


3185 

3186 

DO INPUT 


3187 

do initialize 


3188 

GO TO ILLTERM 


3189 

* 


3190 

3191 

SET UP NAMF 


3192 

3193 

3194 

3195 

3196 

3197 

3198 

3199 

3200 

3201 


3202 

output i/o link 


3203 

GO TO C/R TEST 


3204 

3205 

3206 

3207 

3208 

FN 


3209 

3210 

BN 


3211 

3212 

3213 

3214 

3215 

3216 

3217 
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3218 



• 




3218 

3219 



* 


LIST ELEMENT DATA AND IMPLIED DO CONTROL 

3219 

3220 



• 


STACKED IN TRIAD TABLE, PROCESSED BY 

3220 

3221 



• 


OUTPUT TRIAD ROUTINE, SPECIAL OPERATORS 

3221 

3222 



# 


ARE 

-I = DO INITIALIZATION 

3222 

3223 



• 



T s DO TERMINATION 

3223 

3224 



• 



Q * I/O ARU TRANSFER 

3224 

3225 

05542 

0 00 00000 

T0V5 

pze 

*• 


3225 

3226 

05543 

0 02 00710 

V5 

LDA 

K41 

FSRN 

3226 

3227 

05544 

0 04 00571 


STA 

NAMF+1 


3227 

3228 

05545 

0 10 02525 


JST 

XNOO 

EXAM NEXT CHAR 

3228 

3229 

05546 

100040 


SZE 



3229 

3230 

05547 

0 01 05554 


JMP 

V5 A 

GENERAL READ 

3230 

3231 

05550 

0 02 05736 


LDA 

V5K4 


3231 

3232 

05551 

0 01 05754 


JMP 

V10 A 

CARD READ 

3232 

3233 

05552 

0 02 00707 

V4 

LDA 

K40 

NAMF r F$WN 

3233 

3234 

05553 

0 04 00571 


STA 

NAMF ♦! 


3234 

3235 

05554 

0 10 02722 

V5 A 

JST 

NFOO 

SET UR REMAINING NAME 

3235 

3236 

05555 

0 02 00057 


LDA 

D 


3236 

3237 

05556 

0 04 05732 


STA 

V5T1 


3237 

3 238 

05557 

0 10 01256 


JST 

CHOO 

INPUT CHARACTER 

3238 

3239 

05560 

0 02 00702 


LDA 

K17 

■’250. 

3239 

3240 

05561 

0 10 02547 


JST 

TSOO 

( - TEST 

3240 

3241 

05562 

0 10 12337 


JST 

0100 

OUTPUT 10 LINK 

3241 

3242 

05563 

0 02 00607 


LDA 

TC 

IF TC ,NE, , 

3242 

3243 

05564 

0 07 00752 


SUB 

K134 

*'17 (,) 

3243 

3244 

05565 

100040 


SZE 


GO TO V5J 

3244 

3245 

05566 

0 01 05726 


JMP 

V5J 


3245 

3246 

05567 

0 10 05740 


JST 

V5X 

INPUT FORMAT 

3246 

3247 

05570 

0 10 02555 

V58 

JST 

I PO 0 

) - INPUT operator 

3247 

3248 

05571 

0 02 00607 


LDA 

TC 


3248 

3249 

05572 

0 07 00756 


SUB 

CHET 

TEST FOR TC=C/R 

3249 

3250 

05573 

100040 


SZE 



3250 

3251 

05574 

0 01 05603 


JMP 

V5C 

NO, GO TO V5C 

3251 

3252 

05575 

0 02 00711 

V582 

LDA 

K42 

YES, NAMF s ND 

3252 

3253 

05576 

0 04 00571 


STA 

NAMF+1 


3253 

3254 

05577 

0 10 12363 


JST 

CNCO 

CALL NAME 

3254 
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3255 

05600 

0 

02 

05732 


LDA 

V5T 1 


3255 

3256 

05601 

0 

04 

00057 


STA 

D 


3256 

3257 

05602 

0 

01 

04266 


JMP 

A1 

GO TO C/R TEST 

3257 

3258 

05603 

0 

10 

01251 

V5C 

JST 

ucoo 


3258 

3259 

05604 

140040 

V5C5 

CRA 



3259 

3260 

05605 

0 

04 

00654 


STA 

I OF 

I OF = U 

3260 

3261 

05606 

0 

10 

02354 

V5D 

JST 

1100 

INPUT ITEM 

3261 

3262 

05607 

100040 


SZE 



3262 

3263 

05610 

0 

01 

05625 


JMP 

V5E 

IF (A) NOT Of GO TO V5E 

3263 

3264 

05611 

0 

02 

00702 


LDA 

K17 


3264 

3265 

05612 

0 

10 

02547 


JST 

TSOO 

( -TEST 

3265 

3266 

05613 

140040 


CRA 



3266 

3267 

05614 

0 

04 

00577 


STA 

02 

o 

II 

CM 

o 

3267 

3268 

05615 

0 

02 

00654 


LDA 

I OF 


3268 

3269 

05616 

0 

04 

00576 


STA 

01 

01 * I OF 

3269 

3270 

05617 

0 

02 

05733 


LDA 

V5K1 

s»27 

3270 

3271 

05620 

0 

04 

00600 


STA 

P 


3271 

3272 

05621 

0 

10 

10436 


JST 

ETOO 


3272 

3273 

05622 

0 

02 

00044 


LDA 

L 


3273 

3274 

05623 

0 

04 

00654 


STA 

I OF 

I OF * L 

3274 

3275 

05624 

0 

01 

05606 


JMP 

V5D 

GO TO V5D 

3275 

3276 

05625 

0 

10 

02611 

V5E 

JST 

NCOO 

NON-CONSTANT TEST 

3276 

3277 

05626 

0 

02 

00655 


LDA 

lu 

IF IU NOT ARR 

3277 

3278 

05627 

0 

07 

00721 


SUB 

K103 


3278 

3279 

05630 

100040 


SZE 



3279 

3280 

05631 

0 

01 

05675 


JMP 

V5H 

GO TO V5H 

3280 

3281 

05632 

0 

02 

00607 


LDA 

TC 


3281 

3282 

05633 

0 

07 

00702 


SUB 

K17 

IF TC NOT -(, 

3282 

3283 

05634 

100040 


SZE 



3283 

3284 

05635 

0 

01 

05673 


JMP 

V5G 

GO TO V5G 

3284 

3285 

05636 

0 

02 

00633 


LDA 

DO 


3285 

3286 

05637 

0 

04 

05542 


STA 

T0V5 

T5 * DO 

3286 

3287 

05640 

0 

02 

00721 


LDA 

K1Q3 


3287 

3288 

05641 

140407 


TCA 



3288 

3289 

05642 

0 

10 

07041 


JST 

EXOO 

EXPRESSION 

3289 

3290 

05643 

0 

02 

03542 


LDA 

TO V5 


3290 

3291 

05644 

0 

04 

00633 


STA 

DO 

DO » T5 

3291 
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3292 

05645 

0 

02 

00040 

V5E5 

LDA 

3293 

05646 

0 

04 

00577 


STA 

3294 

05647 

0 

02 

00633 


LDA 

3295 

05650 

0 

04 

00576 


STA 

3296 

05651 

0 

02 

05734 


LDA 

3297 

05652 

0 

04 

00600 


STA 

3298 

05653 

O 

10 

10436 


JST 

3299 

05654 

0 

02 

00607 

V5E7 

LDA 

3300 

05655 

0 

07 

00752 


SU8 

3301 

05656 

101040 


SNZ 

3302 

05657 

0 

01 

05606 


JMP 

3303 

05660 

0 

02 

00654 


LDA 

3304 

Q5661 

0 

04 

QQ041 


STA 

3305 

05662 

1QU04Q 


SZE 

3306 

05663 

0 

01 

05666 


JMP 

3307 

05664 

0 

10 

12700 


JST 

3308 

05665 

0 

01 

05575 


JMP 

3309 

05666 

0 

10 

02555 

V5F 

JST 

3310 

05667 

0 

10 

02676 


JST 

3311 

05670 

1 

02 

15401 


LDA 

3312 

05671 

0 

04 

00654 


STA 

3313 

05672 

0 

01 

05654 


JMP 

3314 

05673 

0 

10 

04005 

V5G 

JST 

3315 

05674 

0 

01 

05645 


JMP 

3316 

05675 

0 

10 

03642 

V5H 

JST 

3317 

05676 

0 

02 

00607 


LDA 

3318 

05677 

0 

07 

00701 


SU8 

3319 

05700 

100040 


SZE 

3320 

05701 

0 

01 

05645 


JMP 

3321 

05702 

0 

10 

02635 


JST 

3322 

05703 

0 

02 

00654 


LDA 

3323 

05704 

101040 


SNZ 

3324 

05705 

0 

01 

05711 


JMP 

3325 

05706 

0 

07 

00044 


SUB 

3326 

05707 

100040 


SZE 

3327 

05710 

o 

m 

0571 3 


JMP 

3328 

05711 

0 

10 

03116 

V5H7 

JST 


A 


02 


DO 

02 = DU 

01 


V5K2 

* ’32 

P 


ETOO 

ENTER TRIAD 

TC 

IF TO s COMMA 

K134 

GO TO V5D 

V5D 


I OF 
• 

I * IOF 

1 

IF NOT ZERO# 

V5F 

GO TU V5F 

OTOO 

OUTPUT TRIADS 

V5B2 

GO TO V5B2 

IPQQ 

)-INPUT OPERATOR 

STX I 


DP*1 1 1 


IOF 

IOF * 01 ( 1) 

V5E7 


KTOQ 

K = = WDS/ITEM 

V5E5 

GO TO V5E5 

TVOO 

TAG VARIABLE 

TC 


K16X 

* ’ 1 6 ( 3 ) 


GO TO V5E5 

V5E5 

ELSE# 

I TOO 

INTEGER TEST 

IOF 



IF IOF a ZERO OR 

V5H7 


L 


*♦3 

ERR 0 R 

ERGO 



3292 

3293 

3294 

3295 

3296 

3297 

3298 

3299 

3300 

3301 

3302 

3303 

3304 

3305 

3306 

3307 

3308 

3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3319 

3320 

3321 

3322 

L 3323 

3324 

3325 

3326 

3327 

3328 



HON 


3329 05712 

3330 05713 

3331 05714 

3332 05715 

3333 05716 

3334 05717 

3335 05720 

3336 05721 

3337 05722 

3338 05723 

3339 05724 

3340 05725 

3341 05726 

3342 05727 

3343 05730 

3344 05731 

3345 05732 

3346 05733 

3347 05734 
3346 05735 

3349 05736 

3350 05737 

3351 03740 

3352 05741 

3353 05742 

3354 05743 

3355 05744 

3356 05745 

3357 05746 

3358 05747 

3359 05730 

3360 05751 

3361 05752 

3362 

3363 05753 

3364 05754 

3365 05755 
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150322 


SCI 

1# PR 

PARENTHESES MISSING IN DO STATEMENT 

3329 

0 10 06702 


JST 

DPOO 

DO INPUT 

3330 

0 02 00654 


LDA 

I OF 


3331 

0 04 00041 


STA 

I 


3332 

0 10 02676 


JST 

STX I 


3333 

0 02 00057 


LDA 

D 


3334 

1 04 15400 


STA 

DP# 1 

02 ( I OF ) • D 

3335 

0 04 00577 


STA 

02 

02 = U 

3336 

0 02 05735 


LDA 

V5K3 

■ » 30 

333 7 

0 04 00600 


STA 

P 


3338 

0 10 10436 


JST 

ETOO 

ENTER TRIAD ' T * , 

3339 

0 01 05666 


JMP 

V5F 


3340 

140040 

V5J 

CRA 



3341 

0 04 00040 


STA 

A 

A a 0 

3342 

0 10 14127 


JST 

OAOO 

OUTPUT ABSOLUTE 

3343 

0 01 05570 


JMP 

V58 


3344 

0 00 00000 

V5T1 

PZE 

0 


3345 

000027 

V5K1 

OCT 

27 


3346 

000032 

V5K2 

OCT 

32 


3347 

000030 

V5K3 

OCT 

30 


3348 

151263 

V5K4 

8CI 

1#R3 


3349 

153664 

V5K5 

SCI 

1 » W4 


3350 

0 000000 

V5X 

DAC 

## 

INPUT FORMAT 

3351 

0 10 02525 


JST 

XNO 0 

EXAM NEXT CHARACTER 

3352 

100040 


SZE 



3353 

0 01 05750 


JMP 

V5X5 

GO TO INPUT ARRAY NAME 

3354 

0 10 02443 


JST 

ISOO 

INPUT STMNT NO, 

3355 

0400 40 

V5X2 

LRL 

32 

OUTPUT DAC A 

3356 

0 10 12467 


JST 

0800 

OUTPUT OA 

3357 

0 01 05740 


JMP* 

V5X 

RETURN 

3358 

0 10 02373 

V5X5 

JST 

N AO 0 

INPUT NAME 

3359 

0 10 02626 


JST 

ATOO 

ARRAY TEST 

3360 

0 01 05745 


JMP 

V5X2 


3361 


• 


PRINT 


3362 

0 02 05737 

V10 

LDA 

V5K5 

PRINTfcR 

3363 

0 04 00571 

VI 0 A 

STA 

NAMF ♦! 


3364 

0 10 02722 


JST 

NFQ 0 

SET JP REST OF NAME 

3365 



HONEYWELL 


COMPUTER CONTROL DIVISION 


PROGRAM DOCUMENTATION 


• C210-Q01-6601 (FRTN) 3 C NO, 180463000 REV, D PAGfc 96 


3366 

05756 

0 10 12363 


JST 

CNOO 

CALL NAME 

3367 

05757 

0 10 05740 


JST 

V5X 

INPUT FORMAT 

3368 

05760 

0 02 00607 


LDA 

TC 


3369 

05761 

0 07 00752 


SUB 

K134 


3370 

05762 

100040 


SZE 


SKIP IF COMMA 

3371 

05763 

0 01 05575 


JMP 

V5B2 


3372 

05764 

0 02 00057 


LDA 

D 


3373 

05765 

0 04 05732 


STA 

V5T1 


3374 

05766 

0 01 05604 


JMP 

V5C5 


3375 



• 




3376 



* 




3377 



• 




3378 



# 


•FORMAT 

• 

3379 



• 


•INPUT FORMAT 

STRING # 

3380 



• 


•INPUT NUMERIC 

format str* 

3381 



• 


•NON ZERO TEST 

STRING • 

3382 



• 




3383 

05767 

0 00 ooooo 

TO V2 

PZE 

0 


3384 

05770 

0 00 00000 

T2V2 

PZE 

0 


3385 


005767 

V2T0 

EQU 

T0V2 


3386 


005770 

V2T2 

EQU 

T2V2 


3387 

05771 

0 02 00702 

V2 

LDA 

K17 


3386 

05772 

0 10 12437 


JST 

OKOO 

OUTPUT rack 

3389 

05773 

140040 


CRA 



3390 

05774 

0 04 05767 


STA 

T0V2 

TO * 0 

3391 

05775 

0 02 00073 


LDA 

LSTP 

IF LSTOP ,NE, 0 

3392 

05776 

100040 


SZE 



3393 

05777 

0 01 06126 


JMP 

V2K 

GO TO V2K 

3394 

06000 

0 10 06160 

V2A 

JST 

SI00 

INPUT FORMAT STRING 

3395 

06001 

100040 


SZE 



3396 

06002 

0 01 06012 


JMP 

V2B 


3397 

06003 

0 02 00607 

V2A1 

LDA 

TC 


3398 

06004 

0 07 00676 


SUB 

K12 

IF TC NOT MINUS 

3399 

06005 

100040 


SZE 



3400 

06006 

0 01 06070 


JMP 

V2F 

GO TO V2F 

34 ni 

n Ann? 

n in 


i e ▼ 

V Kin A 

* , in i If t i i i i. «<••... . 

3402 

06010 

140040 


CRA 




3466 

3367 

3366 

3369 

3370 

3371 

3372 

3373 

3374 

3375 
33?6 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 

3397 

3398 

3399 

3400 

3401 

3402 
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3403 

06011 

0 04 01475 


STA 

TID 

3404 

06012 

0 02 00607 

V2B 

lda 

TC 

3405 

06013 

0 07 06224 


SUB 

K46 

3406 

06014 

100040 


SZE 


3407 

06015 

0 01 06117 


JMP 

V2H 

3408 

06016 

0 10 06160 


JST 

SI00 

3409 

06017 

100040 


SZE 


3410 

06020 

0 10 06145 


JST 

NZO 0 

3411 

06021 

0 02 00607 

V2C 

LDA 

TC 

3412 

06022 

0 11 U2543 


CAS 

K52 

3413 

06023 

101000 


NOP 


3414 

06024 

0 01 06026 


JMP 

#♦2 

3415 

06025 

0 01 06036 


UMP 

V2DA 

3416 

06026 

0 11 06230 


CAS 

K53 

3417 

06027 

0 01 06057 


UMP 

V2E5-2 

3418 

06030 

101000 


NOP 


3419 

06031 

0 10 06153 


JST 

INOO 

3420 

06032 

0 10 06145 


JST 

NZO 0 

3421 

06033 

0 02 00675 


LDA 

K1Q 

3422 

06034 

0 10 02547 


JST 

TSOO 

3423 

06035 

0 10 06153 

V2D 

JST 

INOO 

3424 

06036 

0 02 00607 

V2DA 

LDA 

TC 

3425 

06037 

0 07 00671 


SUB 

K4 

3426 

06040 

100040 


SZE 


3427 

06041 

0 01 06052 


JMP 

V2E 

3428 

06042 

0 10 01256 


JST 

CHOO 

3429 

06043 

0 10 12437 


JST 

okoo 

3430 

06044 

0 02 03767 


LDA 

T0V2 

3431 

06045 

0 07 00717 


SUB 

K 10 1 

3432 

06046 

0 04 05767 


STA 

TO V2 

3433 

06047 

100400 


SPL 


3434 

06050 

0 01 04266 


JMP 

V2N 

3435 

06051 

0 01 06036 


JMP 

V2DA 

3436 



* 



3437 

06052 

0 02 00607 

V2E 

LDA 

TC 

3438 

06053 

0 07 00672 


SU9 

K5 

3439 

06054 

101040 


SNZ 
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TIG = 0 3403 

IF TC i ME , P 3404 

3405 

3406 

GO TO V2H 3407 

INPUT FORMAT STRING 3408 

3409 

IF ( A ) , NE , 0 3410 

34U 

IF TC s D,E»F, OR G 3412 

3413 


3414 

3415 

3416 

3417 

3418 


INPUT NUMERIC FORMAT STRING 34*9 

NON-ZERO STRING TEST 3420 

3421 

PERIOD TEST 3422 

INPUT NUMERIC FORMAT STRING 3423 

If TC = > ' 3424 

3425 

3426 

3427 

3428 

INPUT CHAR AND OUTPUT PACK 3429 

IF F4 ♦ ( « ( 3430 

GO TO V2E 3431 

3432 

3433 

ELSE, 3434 

3435 

GO TO C/R TEST 3436 

IF TC «, 3437 


3438 

3439 
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3440 

06055 

0 

01 

06000 


JMP 

V2A 

GO 

TO V2A 



3440 

3441 

06056 

0 

02 

00674 


LDA 

K9 





3441 

3442 

06057 

0 

10 

02547 


JST 

TS00 

/ 

TEST 



3442 

3443 

06060 

0 

01 

06000 


JMP 

V2A 





3443 

3444 

06061 

0 

10 

06160 

V2E5 

JST 

S 1 00 

INPUT FORMAT STRING 



3444 

3445 

06062 

100040 


SZE 


IF 

(A) NOT 0# 



3445 

3446 

06063 

0 

01 

06012 


JMP 

V2B 

GO 

TO V2B 



3446 

3447 

06064 

0 

02 

00643 


LDA 

DFL 

IF 

DFL ,NE , ZERO, 



3447 

3448 

06065 

100040 


SZE 






3448 

3449 

06066 

0 

01 

06036 


JMP 

V2DA 

GO 

TO V2DA 



3449 

3450 

06067 

0 

01 

06003 


JMP 

V2A1 





3450 

3451 

06070 

0 

02 

00607 

V2F 

LDA 

TC 

IF 

TC ■ H 



3451 

3452 

06071 

0 

11 

02544 


CAS 

K48 





3452 

3453 

06072 

0 

01 

06074 


JMP 

*♦2 





3453 

3454 

06073 

0 

01 

06212 


JMP 

V2P 

GO 

TO V2P 



3454 

3455 

0 60 74 

0 

11 

06225 

V2FB 

CAS 

K47 





3455 

3456 

06075 

0 

01 

06077 


JMP 

# + 2 





3456 

3457 

06076 

0 

01 

06061 


JMP 

V2E5 





3457 

3458 

06077 

0 

11 

00702 


CAS 

K17 

IF 

TC « (, 



3458 

3459 

06100 

0 

01 

06102 


JMP 

*♦2 





3459 

3460 

06101 

0 

01 

06215 


JMP 

V2Q 

GO 

TO V2Q 



3460 

3461 

06102 

0 

02 

00607 


LDA 

TC 

IF 

TC ,NE, A , I , OR L 



3461 

3462 

06103 

0 

11 

06226 


CAS 

K49 

A 




3462 

3463 

06104 

0 

01 

06106 


JMP 

*♦2 





3463 

3464 

06103 

0 

01 

06114 


JMP 

V2G 





3464 

3465 

06106 

0 

11 

00712 


CAS 

K50 

I 




3465 

3466 

06107 

0 

01 

06111 


JMP 

• ♦2 





3466 

3467 

06110 

0 

01 

06114 


JMP 

V2G 





3467 

3468 

06111 

0 

07 

06227 


SUB 

K51 

L 




3468 

3469 

06112 

100040 


SZE 






3469 

3470 

06113 

0 

01 

06021 


JMP 

V2C 





3470 

3471 

06114 

0 

10 

06153 

V2G 

JST 

INOO 

INPUT NUMERIC FORMAT 

STRING 


3471 

3472 

06115 

0 

10 

0 6145 


JST 

NZ OQ 

NON-ZERO STRING TEST 



3472 

3473 

06116 

0 

01 

06036 


JMP 

V2DA 





3473 

3474 

06117 

0 

10 

06145 

V2H 

JST 

NZO 0 

NON-ZfcKO STRING TEST 



3474 

3475 

hai on 

V v * K. v 

n 

V 

n o 

V la 

n n a n 7 

V V w V r 


i n a 

b vn 

r r 

! V 

T t 
* * 

TP s u 

I W — 1 * J 



3475 

3476 

06121 

0 

07 

Q 2544 


SUB 

K48 





3476 
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99 

3477 

06122 

100040 


SZE 





3477 

3478 

06123 

0 01 06070 


JMP 

V2F 




3478 

3479 

06124 

0 10 06664 

V2J 

JST 

HS00 

TRANSMIT HOLLERITH STRING 


3479 

3480 

06125 

0 01 06061 


JMP 

V2E5 

GO TO V2E5 



3480 

3481 

06126 

0 02 00071 

V2K 

LDA 

LSTN 

IF LSTN s 0, 



3481 

3482 

06127 

100040 


SZE 





3462 

3483 

06130 

0 01 06133 


JMP 

* + 3 




3483 

3484 

06131 

0 10 03116 


JST 

ER00 

ERROR, NO PATH 



3484 

3485 

06132 

147306 


8CI 

l.NF 

NO REFERENCE TO 

format statement 


3485 

3486 

06133 

0 02 0006Q 


LDA 

RPL 

LIF a RP L 



3486 

3487 

06134 

0 04 00070 


STA 

L IF 




3487 

3488 

06135 

140040 


CRA 





3488 

3469 

06136 

0 04 00040 


STA 

A 




3489 

3490 

06137 

0 04 00630 


STA 

A F 




3490 

3491 

06140 

141206 


AOA 





3491 

3492 

06141 

0 04 00640 


STA 

DF 




3492 

3493 

06142 

0 02 13733 


LDA 

K201 

» JMP 0 



3493 

3494 

06143 

0 10 14127 


JST 

OA00 

OUTPUT ABS 



3494 

3495 

06144 

0 01 06000 


JMP 

V2A 

GO TO V2A 



3495 

3496 



* 






3496 

3497 

06145 

0 000000 

NZ 00 

DAC 

• • 




3497 

3498 

06146 

0 02 01475 


LDA 

TID 




3498 

3499 

06147 

100040 


SZE 





3499 

3500 

06150 

-0 01 06145 


JMP* 

NZ00 




3500 

3501 

06151 

0 10 03116 

NZ10 

JST 

ERQQ 




3501 

3502 

06152 

147332 


BCI 

1 # NZ 

NON-ZERO STRING 

TEST FAILED 


3502 

3503 

06153 

0 000000 

I NO 0 

DAC 

• * 




3503 

3504 

06154 

0 10 06160 


JST 

SI00 

(A) = 0 IS ERROR 

CONDITION 


3504 

3505 

06155 

100040 


SZE 





3505 

3506 

06156 

•0 01 06153 


JMP* 

I NO 0 




3506 

3507 

06157 

0 01 06151 


JMP 

NZ 10 




3507 

3508 

06160 

0 000000 

SI00 

DAC 

• • 




3508 

3509 

06161 

140040 


CRA 





3509 

3510 

06162 

0 04 01475 


STA 

TID 

ID s T2 3 o 



3510 

3511 

06163 

0 04 05770 

S I 05 

STA 

V2T2 




3511 

3512 

06164 

0 10 01256 


JST 

CHC0 

INPUT CHAR 



3512 

3513 

06165 

0 10 12437 


JST 

OK00 

OUTPUT PACK 



3513 
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3514 

06166 

0 02 00607 


IDA 

TC 

3515 

06167 

0 07 00715 


SUB 

K60 

3516 

06170 

0 11 00742 


CAS 

K124 

3517 

06171 

0 01 06206 


JMP 

siio 

3518 

06172 

101000 


NOP 


3519 

06173 

100400 


SPL 


3520 

06174 

0 01 06206 


JMP 

S 1 10 

3521 

06175 

0 04 U0607 


STA 

TC 

3522 

06176 

0 02 01475 


IDA 

TID 

3523 

06177 

0415 75 


AIS 

3 

3524 

06200 

0 06 01475 


ADD 

TID 

3525 

06201 

0 06 01475 


ADD 

TID 

3526 

06202 

0 06 00607 


ADD 

TC 

3527 

06203 

0 04 01475 


STA 

TID 

3528 

06204 

0 02 00717 


LDA 

K101 

3529 

06205 

0 01 06163 


JMP 

S 1 05 

3530 

06206 

0 02 05770 

SJ1Q 

LDA 

V2T2 

3531 

06207 

-0 01 06160 


JMP* 

S I 00 

3532 

06210 

0 10 03il6 

V2M 

JST 

EROQ 

3533 

06211 

143322 


BCI 

1 # FR 

3534 


004266 

V2N 

EOU 

A1 

3535 

06212 

0 02 00717 

V2P 

LDA 

K101 

3536 

06213 

0 04 01475 


STA 

ID 

3537 

06214 

0 01 06124 


JMP 

V2J 

3538 

06215 

0 02 05767 

V2Q 

LDA 

T0V2 

3539 

06216 

141206 


AOA 


3540 

06217 

0 04 05767 


STA 

T0V2 

3541 

06220 

0 07 00721 


SUB 

K103 

3542 

06221 

100040 


SZE 


3543 

06222 

0 01 06000 


JMP 

V2A 

3544 

06223 

0 01 06210 


JMP 

V2M 

3545 

06224 

000320 

K46 

OCT 

320 

3546 

06225 

000330 

K47 

OCT 

330 

3547 


002544 

K48 

EQU 

K14 

3548 

06226 

000301 

K49 

OCT 

301 

3549 

0-6227 

n nn .TM a 

If 5 4 

n r t 

? A A 

3550 


002543 

K52 

EQU 

Kll 
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3514 

ASC-2 ZERO 


3515 

3516 

3517 

3518 

3519 

3520 

3521 

TID = 1 0*T I D* TC 


3522 

3523 

3524 

3525 

3526 

3527 

T2 *1 


3528 

3529 

(A) = ERROR CONDITION OR 

NOT 

3530 

3531 

3532 

FORMAT statement error 


3533 

3534 

3535 

ID * 1 


3536 

GO TO V2J 


3537 

3538 

3539 

3540 

3541 

3542 

3543 

3544 

OP 


3545 

OX 


3546 

OH 


3547 

OA 


3548 

0 L 


3549 

OD 


3550 
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3551 

06230 

000307 

K53 

OCT 

307 

QG 

3551 

3552 


000712 

K50 

EOU 

K43 

0 I 

3552 

3553 



* 




3553 

3554 



* 




3554 

3555 



• 




3555 

3556 



* 


•STOP * 


3556 

3557 



* 


•PAUSE* 


3557 

3558 



« 




3558 

3559 



* 


PAUSE AND STOP 

GENERATE CALLS To FSHT 

3559 

3560 

06231 

0 00 00000 

T1W7 

PZE 

0 


3560 

3561 

06232 

0 00 00000 

T2W7 

PZE 

0 


3561 

3562 

06233 

0 02 06300 

W7 

LDA 

K55 


3562 

3563 

06234 

0 04 06231 


STA 

T1W7 


3563 

3564 

06235 

0 02 06276 

W7 A 

lda 

K 74 


3564 

3565 

06236 

0 04 00571 


STA 

NAMF+1 

NAMF * F$HT 

3565 

3566 

06237 

0 10 02722 


JST 

NFOO 

SET-UP REMAINING CHAR OF NAME 

3566 

3567 

06240 

0 10 02525 


JST 

XNO 0 

EXAMINE NEXT CHAR 

3567 

3568 

06241 

0 02 00607 


LDA 

TC 


3568 

3569 

06242 

0 07 00756 


SUB 

CRET 


3569 

3570 

06243 

101040 


SNZ 



3570 

3571 

06244 

0 01 06251 


JmP 

W7C 

TC * C/R - NOTING FOLLOWING 

3571 

3572 

06245 

0 10 02432 


JST 

I voo 

INPUT INTEGER/VARIABLE 

3572 

3573 

06246 

0400 40 


LRL 

32 


3573 

3574 

06247 

0 02 13735 


LDA 

K20Q 

OUTPUT LDA 

3574 

3575 

06250 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

35?5 

3576 

06251 

0 10 12363 

W7C 

JST 

CNQQ 

CALL NAME 

3576 

3577 

06252 

140040 


CRA 



3577 

3578 

06253 

0 04 00640 


STA 

DF 

DF * 0 

3578 

3579 

06254 

0 02 06231 


LDA 

T1W7 


3579 

3580 

06255 

0 04 01475 


STA 

ID 


3580 

3581 

06256 

0 10 04241 


JST 

A I 00 

ASSIGN INTEGER CONSTANT 

3581 

3582 

06257 

140040 


CRA 


OUTPUT DAC 

3582 

3583 

06260 

0 10 12467 


JST 

OBOO 

OUTPUT OA OF ST/PA OR HT 

3583 

3504 

06261 

0 02 06231 


LDA 

T1W7 


3584 

3585 

06262 

0 07 06277 


SUB 

K54 


3585 

3586 

06263 

101040 


SNZ 



3506 

3587 

06264 

0 01 04264 


JMP 

C5 

pa-not the case 

3587 
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3588 

06265 

0 02 00060 


LDA 

RPL 


3588 

3589 

06266 

0 04 00630 


STA 

A F 

OUTPUT JMP * 

3589 

3590 

06267 

140040 


CRA 



3590 

3591 

06270 

0 04 00040 


STA 

A 

CAUSE LISTING TO HAVE OCTAL ADDRESS 

3591 

3592 

06271 

0 02 13733 


LDA 

K201 


3592 

3593 

06272 

0 10 13773 


JST 

OROO 

OUTPUT RELATIVE 

3593 

3594 

06273 

0 01 04262 


JMR 

B6 


3594 

3595 

06274 

0 02 06277 

Wb 

LDA 

K54 


3595 

3596 

06275 

0 01 06234 


JMP 

W7 + 1 


3596 

3597 

06276 

144324 

K74 

BC1 

1 # HT 

HT 

3597 

3598 

06277 

150301 

K54 

8CI 

1# PA 

PA 

3598 

3599 

06300 

151724 

K55 

BC1 

1 » ST 

ST 

3599 

3600 







vtOMU 

3601 



• 




3601 

3602 



• 

m 

R8 CALL 


3602 

3603 



• 


GENERATES CALL 

DIRECTLY OR USES EXPRESSION TO 

3603 

3604 



• 


analyze an 

ARGUMENT LIST, 

3604 

3605 

06301 

0 10 02520 

R8 

JST 

SYOO 

INPUT SYMBOL 

3605 

3606 

06302 

0 02 00655 


LDA 

IU 


3606 

3607 

06303 

0 07 00717 


SUB 

K101 

*1 (SUB) 

3607 

3608 

06304 

100040 


SZE 


SKIP IF IU«SUBR, 

3608 

3609 

06305 

0 10 03465 


JST 

TGOO 

TAG SUB PROGRAM 

3609 

3610 

06306 

0 02 00607 


LDA 

TC 


3610 

3611 

06307 

0 07 00702 


SUB 

K17 

*’250 ( < ) 

3611 

3612 

06310 

100040 


SZE 



3612 

3613 

06311 

0 01 06314 


JMP 

*♦3 


3613 

3614 

06312 

0 02 00717 

G2B 

LDA 

K101 

SET A* 1 BEFORE EXPRESSION 

3614 

3615 

06313 

0 01 06325 


JMP 

G2A 


3615 

3616 

06314 

140040 


CRA 



3616 

3617 

06315 

000201 


1AB 


( B ) *0 

3617 

3618 

06316 

0 02 13730 


LDA 

OM I 2 

* JS T I NSTR , 

3618 

3619 

06317 

0 10 12467 


JST 

OBOO 

OUTPUT OA 

3619 

3620 

06320 

0 01 04266 


JMP 

A1 

CH TEST 

3620 

3621 



« 




3621 

3622 



# 


•ASSIGNMENT 

STATEMENT* 

3622 




* 





3624 

06321 

0 02 00722 

G2 

LDA 

K 1 0 4 


3624 
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3625 

06322 

0 10 05074 


JST 

NP0 0 

F IRST NON-SPEC CHECK 

3626 

06323 

0 10 02354 


JST 

1100 

INPUT ITEM 

3627 

06324 

0 02 00720 


LDA 

K1Q2 

SET A s 2 BEFORE EXPRESSION 

3628 

06325 

140407 

G2A 

TCA 



3629 

06326 

0 10 07041 


JST 

EXOO 


3630 

06327 

0 01 04266 


JMP 

A1 


3631 



• 




3632 



• 




3633 



• 




3634 



« 


♦RETURN# 


3635 



• 


♦*»••••« 


3636 



• 


OPTIMIZES EXIT 

CODING FOR FUNCTIONS TO MINIMIZE 

3 6 3 7 



• 


FETCHES OF 

THE FUNCTION VALUE, 

3638 

06330 

0 02 00047 

H9 

LDA 

S8F 

A = S8F, 

3639 

06331 

0 04 00040 


STA 

A 

IF ZERO, GO To ERROR 

3640 

06332 

100040 


SZE 



3641 

06333 

0 01 06336 


JMP 

• ♦3 


3642 

06334 

0 10 03116 


JST 

EROO 


3643 

06335 

151324 


BCI 

1 # RT 

RETURN NOT ALLOWED IN MAIN PROGRAM 

3644 

06336 

0 02 00046 


LDA 

SFF 

ELSE, IF SFF a 0, 

3645 

06337 

101040 


SNZ 



3646 

06340 

0 01 06356 


JMP 

R9C 

GO TO R9C 

3647 

06341 

0 11 00717 


CAS 

K101 

IF SFF a 1 , GO TO R9B 

3640 

06342 

0 01 06344 


JMP 

#♦2 


3649 

06343 

0 01 06351 


JMP 

R9B 


3650 

06344 

0 04 00630 


STA 

AF 

OUTPUT REL JMP TO 1ST RETN 

3651 

06345 

040 Q 40 


LRL 

32 


3652 

06346 

0 04 00040 


STA 

A 

SET A s q TO OUTPUT OCTAL ADDH ON LIST 

3653 

06347 

0 02 13733 


LDA 

K201 


3654 

06350 

0 01 06362 


JMP 

R9A 


3655 

06351 

000201 

R9B 

IA8 



3656 

06352 

0 02 00060 


LDA 

RPL 

SFF a RPL 

3657 

06353 

0 04 00046 


STA 

SFF 


3658 

06354 

0 02 06364 


LDA 

K56 

OUTPUT ITEM ( F , A ) 

3659 

06355 

0 10 13147 


JST 

OMQQ 


3660 

06356 

0400 40 

R9C 

LRL 

32 


3661 

06357 

0 04 0 0 0 4 u 


STA 

A 

SET FUR OCTAL ADDRESS IN LISTING 


I NG 


3625 

3626 

3627 

3628 

3629 

3630 

3631 

3632 

3633 

3634 

3635 

3636 

3637 

3638 

3639 

3640 

3641 

3642 

3643 

3644 

3645 

3646 

3647 

3648 

3649 

3650 

3651 

3652 

3653 

3654 

3655 

3656 

3657 

3658 

3659 

3660 

3661 
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3662 

06360 

0 

04 

00630 


STA 

AF 

Set RELATIVE ADDRESS 

TO ZERO 

3663 

06361 

0 

02 

13740 


LDA 

K206 

JUMP I, 0 


3664 

06362 

0 

10 

13773 

R9A 

JST 

OROO 

OUTPUT REL 


3665 

06363 

0 

01 

04262 


JMP 

B 6 

EXIT 


3666 

06364 

000031 

K56 

OCT 

31 

P CODE FOR »F» (FETCH) 

3667 





• 





3668 





# 





3669 





* 





3670 





• 


•STATEMENT 

FUNCTION* 


3671 





• 





3672 





* 


OLD ASSIGN VALUES ARE SAVED IN SFTB AND 

ARE 

3673 





• 


RESTORED 

AT COMPLETION, 


3674 

06365 

0 

00 

00000 

G1T0 

PZE 

0 



3675 

06366 

0 

00 

00000 

G1T1 

PZE 

0 



3676 

06367 

0 

02 

00721 

G1 

LDA 

K103 

(A) = 3 


3677 

06370 

0 

10 

05074 


JST 

NPO 0 

FIRST NON-SPEC CHECK 


3678 

06371 

0 

10 

02520 


JST 

SYOO 

INPUT SYMBOL 


3679 

06372 

0 

10 

04233 


JST 

LOOO 

DEFINE LOCATION 


3680 

06373 

0 

02 

00721 


LDA 

K103 



3681 

06374 

0 

04 

00041 


STA 

I 



3682 

06375 

0 

10 

10525 


JST 

GEOO 

GENERATE SUBPROGRAM ENTRANCE 

3683 

06376 

0 

02 

00041 


LDA 

I 



3684 

06377 

0 

04 

06366 


STA 

G1T1 

T 1 a I 


3685 

06400 

0 

02 

00701 


LDA 

K16X 

'** TEST 


3686 

06401 

0 

10 

02547 


JST 

TSOO 



3687 

06402 

0 

10 

02354 


JST 

1100 

INPUT ITEM 


3688 

06403 

14 

0040 


CRA 




3689 

06404 

0 

10 

07041 


JST 

EXOO 

EXPRESSION 


3690 

06405 

0 

02 

06366 


LDA 

G1T1 



3691 

06406 

0 

04 

00041 


STA 

I 

I = T 1 


3692 

06407 

0 

12 

00052 


IRS 

TCF 

TCF * TCF+1 


3693 

06410 

0 

10 

02676 

G1A 

JST 

STX I 



3694 

06411 

1 

02 

10462 


LDA 

SFTB*2,1 



3695 

06412 

0 

04 

00040 


STA 

A 



3696 

06413 

1 

02 

10460 


LDA 

SFTB + 0 # 1 



3F 77 

uous 

0 uu<;u x 


I AB 




3698 

06415 

0 

10 

02672 


JST 

STXA 

SET R 70 A 



4662 

3663 

3664 
3663 

3666 

3667 
3663 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 
3673 

3679 

3680 

3681 
3662 

3683 

3684 

3685 

3686 

3687 

3688 

3689 

3690 

3691 

3692 

3693 

3694 

3695 

3696 

3697 
3696 
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3699 06416 
37UQ 06417 

3701 06420 

3702 06421 

3703 06422 

3704 06423 

3705 06424 

3706 06425 

3707 06426 

3708 06427 

3709 06430 

3710 06431 

3711 06432 

3712 06433 

3713 06434 

3714 06435 

3715 06436 

3716 06437 

3717 06440 

3718 06441 

3719 06442 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 06443 

3728 06444 

3729 06445 

3730 06446 

3731 06447 

3732 06450 

3733 06451 

3734 06452 

3735 06453 


* C210-001-6601 (FRTN) jC NO. 180463000 

000201 MB 


1 04 15400 

STA 

DP # 1 



0 10 02676 

JST 

STXI 

SET 

R TO I 

1 02 10461 

LDA 

SFTB#1,1 


000201 

MB 




0 10 02672 

JST 

stxa 

SET 

R TO A 

000201 

MB 



1 04 15401 

STA 

DP#1,1 



0 02 00041 

LDA 

I 



0 07 00721 

SUB 

K103 

I * 

I -3 a 0 

0 04 00041 

STA 

I 

0 07 00721 

SUB 

K103 




100040 SZE 

0 01 06410 JMP GlA 

0 02 05073 LDA TlNP 

0 04 00040 STA A 

0410 60 m 16 

0 02 13740 LDA QMJ1 

0 10 12467 JST OBQO 

0 10 03465 JST TG00 

0 01 04266 JMP A1 

* W5 END 

* *•••** 

# #END PROCESSOR# 

# ••*•*•••••*•#•• 

# FIRST CHECK SUBPROGRAMS FOR CORRECT USAGE# THEN 

* GENERATE MAP AND STRING BACK VARIABLES 


0 00 00000 

* 

T1W5 

PZE 


AND CONSTANTS, 


0 02 00061 
100040 

H5 

LDA 

SZE 

BDF 

IF 

BLOCK DATA, 

0 01 06525 


JMP 

W5K 

GQ 

TO W5K 

0 02 00047 


LDA 

SBF 

IF 

SBF NOT ZERO 

0 04 00040 
100040 


STA 

SZE 

A 

INDICATES SUBROUTINES 
OR FUNCTION. 

0 01 06532 
140040 

*5B 

JMP 

CRA 

W5M 

GO 

TO W5M 


NO, GO TO G1A 


tag subprogram 
go to c/r test 


3699 

37QU 

3701 

3702 

3703 

3704 

3705 

3706 

3707 

3708 

3709 

3710 

3711 

3712 

3713 

3714 

3715 

3716 

3717 

3718 

3719 

3720 

3721 

3722 

3723 

3724 

3725 

3726 

3727 

3728 

3729 

3730 

3731 

3732 

3733 

3734 

3735 
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* C210-QQ1-6601 (FRTN) 3C NO. 180463000 


REV, D PAlit lUb 


3736 

06454 

0 04 00040 


STA 

A 

A* J* 0 

3736 

3737 

06455 

0 01 06500 


JMP 

W5H 


3737 

3738 

06456 

0 10 03656 

W5D 

JST 

F AO 0 

FETCH ASSIGNS 

3738 

3739 

06457 

0 10 02672 


JST 

STX A 


3 739 

3740 

06460 

0 02 00573 


IDA 

NT 


3740 

3741 

06461 

100040 


SZE 


IF NT *1 (CONSTANT) 

3741 

3742 

06462 

0 01 06552 


JMP 

W50 

GO TO W50 

3742 

3743 

06463 

0 02 00655 


IDA 

IU 


3743 

3744 

06464 

0 07 00717 


SUB 

K101 

IF I Us 1 

3744 

3745 

06465 

100040 


SZE 


INDICATES VARIABLE, 

3745 

3746 

06466 

0 01 06627 


JMP 

W5T 

GO TO W5T 

3746 

3747 

06467 

0 02 00060 

W5F 

IDA 

RPL 

SAVE RPL 

3747 

3748 

06470 

0 04 06443 


STA 

T1W5 

RPl»-AF (INHIBIT LISTING) 

3748 

3749 

06471 

0 02 00630 


LDA 

A F 


3749 

3750 

06472 

140500 


SSM 



3750 

3751 

06473 

0 04 00060 


STA 

RPL 


3751 

3752 

06474 

140040 


CRA 



3752 

3753 

06475 

0 10 13773 


JST 

OROO 

OUTPUT REL 

3753 

3754 

06476 

0 02 06443 


LDA 

T1W5 

RESTORE RPL 

3754 

3755 

06477 

0 04 00060 


STA 

RPL 


3755 

3756 

06500 

0 02 00040 

W5H 

LDA 

A 

A*A + 5 

3756 

3757 

06501 

0 06 00723 


ADD 

K1Q5 


3757 

3758 

06502 

0 04 00040 


STA 

A 


3756 

3759 

06503 

0 07 00054 


SUB 

ABAR 

IF AaABAR, (DONE) 

3759 

3760 

06504 

0 07 00723 


SUB 

K105 


3760 

3761 

06505 

100040 


SZE 



3761 

3762 

06506 

0 01 06456 


JMP 

W5D 

ELSE, GO TO W5D 

3762 

3763 

06507 

0 10 14523 

W5 J 

JST 

FSOO 

FLUSH BUFFER 

3763 

3764 

06510 

0 02 00047 


LDA 

SBF 


3764 

3765 

06511 

100040 


SZE 



3765 

3766 

06512 

0 02 00727 


LDA 

W5Z1 


3766 

3767 

06513 

0 05 00740 


ERA 

W5Z2 


3767 

3768 

06514 

0 04 14632 


STA 

OCI 


3768 

3769 

06515 

0 02 0UO47 


LDA 

SBF 


3769 

3770 

06516 

100040 


SZE 



3770 

3771 

06517 

0 0? 00733 


LDA 

W5Z3 


3771 

3772 

06520 

0 04 14633 


STA 

OCI*l 


3772 
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* C210-Q01-6601 (FRTN) 


3773 

06521 

0 

02 

00724 


LDA 

K106 

3774 

06522 

0 

04 

00602 


STA 

OCNT 

3775 

06523 

0 

10 

14523 


JST 

FSOO 

3776 

06524 

0 

01 

01007 


JMP 

A051 

3777 

06525 

0 

02 

00060 

W5K 

LDA 

RPL 

3778 

06526 

101040 


SNZ 


3779 

06527 

0 

01 

06507 


JMP 

W5J 

3780 

06530 

0 

10 

03116 


JST 

EROO 

3781 

06531 

141304 


BCI 

1 , BD 

3782 

06532 

0 

10 

03656 

W5M 

JST 

F AO 0 

3783 

06533 

0 

02 

00046 


LDA 

SFF 

3784 

06534 

100040 


SZE 


3785 

06535 

0 

01 

06544 


JMP 

W5N 

3786 

06536 

0 

10 

02603 


JST 

NUOO 

3787 

06537 

0 

10 

02672 


JST 

STXA 

3788 

06540 

1 

02 

15400 


LDA 

DP , 1 

3789 

06541 

140500 


SSM 


3790 

06542 

1 

04 

15400 


STA 

DP, 1 

3791 

06543 

0 

01 

06453 


JMP 

W5B 

3792 

06544 

0 

02 

00655 

W5N 

LDA 

IU 

3793 

06545 

0 

07 

00720 


SUB 

K1Q2 

3794 

06546 

101040 


SNZ 


3795 

06547 

0 

01 

06453 


JMP 

W5B 

3796 

06550 

0 

10 

U 3116 


JST 

EROO 

3797 

06551 

143304 


BCI 

i,fd 

3798 

06552 

0 

02 

00655 

W50 

IDA 

IU 

3799 

06553 

0 

07 

00720 


SUB 

K102 

3800 

06554 

100040 


SZE 


3801 

06555 

0 

01 

06500 


JMP 

W5H 

3802 

06556 

0 

02 

00631 


LDA 

AT 

3803 

06557 

0 

07 

00721 


SUB 

K103 

3804 

06560 

100040 


SZE 


3805 

06561 

0 

01 

06500 


JMP 

W5H 

3806 

06562 

0 

02 

00633 

W5P 

LDA 

DO 

3807 

06563 

0 

07 

00722 


SUB 

K104 

3808 

06564 

100040 


SZE 


3809 

06565 

0 

01 

06605 


JMP 

W5Q 


30 NO , 1 80 46-30 0 0 Htv, D RAGt 107 


3773 

3774 

3775 

GO TO INITIALIZE 3776 

IF RPL NOT ZERO, 3777 

3776 
3779 

ERROR-CODE GENERATED 3780 

IN A BLOCK DATA SUBPROGRAM 3781 

FETCH ASSIGNS 3782 

IF FUNCTION, 3783 

3784 

GO TO W5N 3785 

NO USE TEST 3786 

3787 

IF NO ERROR, 3788 

NT ( A ) si 3759 

3790 

GO TO W53 3791 

3792 

IU MUST BE VAR/CON, 3793 

ELSE, 3794 

3795 

ERROR-FUNCTION 3796 

NAME NOT DEFINED BY AN AR I T HM , STATEMENT 3797 

IF IU«VAR/CON ~ 3798 

3799 

3800 
3601 

AND AT * STR/REL 3802 

A "5TRING" REQ’D, 3803 

3804 

3805 

IF DU IS 4, THE 3806 

constant is complex, 3807 

OTHERWISE 3808 

GO TO W5Q 3809 
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3810 

06566 

0 

02 

00630 


LDa 

AF 


3810 

3811 

06567 

0 

10 

14135 


JST 

OSOO 

OUTPUT STRING 

3811 

3812 

06570 

0 

10 

02672 


JST 

STXA 

3812 

3813 

06571 

1 

02 

15402 


LDA 

DP*2,1 

OUTPUT 4 WORDS 

3813 

3814 

06572 

0 

10 

06651 


JST 

W5X 

OF CONSTANT 

3614 

3815 

06573 

1 

02 

15403 


LDA 

DP*3,1 


3015 

3816 

06574 

0 

10 

06651 


JST 

H5X 


3B16 

3817 

06575 

0 

02 

00573 


LDA 

Nf 


3817 

3818 

06576 

101040 


SNZ 



3818 

3819 

06577 

0 

01 

06614 


JMP 

W5S 


3619 

3820 

06600 

0 

02 

00040 


LDA 

A 

increment A 

3820 

3821 

06601 

0 

06 

00723 


ADD 

K105 


3821 

3822 

066Q2 

0 

04 

00040 


STA 

A 


3822 

3823 

06603 

0 

10 

02672 


JST 

STXA 


3823 

3824 

06604 

0 

01 

06614 


JMP 

W5S 


3824 

3825 

06605 

0 

02 

00630 

W5Q 

LDA 

AF 


3825 

3826 

06606 

0 

10 

14135 


JST 

OSOO 

OUTPUT STRING 

3826 

3827 

06607 

0 

10 

02672 


JST 

STXA 

3827 

3828 

06610 

0 

02 

00633 


LDA 

DO 

IF DO»l, 

3828 

3829 

06611 

0 

07 

00717 


SUB 

K101 

INDICATES INTEGER, 

3829 

3830 

06612 

101040 


SNZ 



3830 

3831 

06613 

0 

01 

06624 


JMP 

W5R 

GO TO W5R 

3831 

3832 

06614 

1 

02 

15402 

W5S 

LDA 

DP + 2 » 1 

OUTPUT TWO WORDS 

3832 

3833 

06615 

0 

10 

06651 


JST 

W5X 

FLOATING POINT CONSTANT 

3833 

3834 

06616 

1 

02 

15403 


LDA 

DP*3,1 


3834 

3835 

06617 

0 

10 

06651 


JST 

W5X 


3835 

3836 

06620 

0 

02 

00633 


LDA 

DO 

IF DOUBLE PRECISION, 

3836 

3837 

06621 

0 

07 

00721 


SUB 

K103 


3837 

3838 

06622 

100040 . 


SZE 



3838 

3839 

06623 

0 

01 

06500 


JMP 

W5H 


3839 

3840 

06624 

1 

02 

15404 

W5R 

LDA 

DP+4,1 

OUTPUT THE 3RD WORD 

3840 

3841 

06625 

0 

10 

06651 


JST 

W5X 

3841 

3842 

06626 

0 

01 

06500 


JMP 

W5H 

GO TO W5H 

3842 

3843 

06627 

0 

02 

00631 

W5T 

LDA 

AT 


3843 

3844 

06630 

0 

11 

00721 


CAS 

K103 


3844 

3845 

06631 

0 

01 

06467 


JMP 

W5F 

STRUNG VARIABLE (IUsNON 0) 

3845 

3846 

06632 

0 

01 

06644 


JMP 

W5T5 


3846 
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3847 

06633 

0 11 00720 


CAS 

K102 

TEST PUR STG ABS ADDRESS 

3848 

06634 

017400 


OCT 

17400 

3849 

06635 

0 01 06637 


JMP 

*♦2 


3850 

06636 

0 01 06467 


JMP 

W5F 

NO 

3851 

06637 

1 02 15404 


IDA 

DP*4,1 

TEST FOR PREFIX G 

3852 

06640 

0 03 06634 


ANA 

*-4 


3853 

06641 

0 07 06634 


SUB 

#•5 


3854 

06642 

100040 


SZE 



3855 

06643 

0 01 06467 


JMP 

W5F 

STRUNG VARIABLE UU*NQN 0) 

3856 

06644 

0 02 00655 

W5T5 

IDA 

IU 

3857 

06645 

100040 


SZE 



3858 

06646 

0 01 06562 


JMP 

W5P 


3859 

06647 

0 10 03116 


JST 

EROO 


3860 

06650 

152723 


BCI 

1*US 


3861 

06651 

0 000000 

W5X 

DAC 

• • 


3862 

06652 

0400 60 


LRl 

16 


3863 

06653 

0 04 00640 


STA 

DF 


3864 

06654 

000201 


IA8 



3865 

06655 

0 10 14127 


JST 

OAQO 

OUTPUT ABS 

3866 

06656 

0 10 02672 


JST 

STXA 

REST "A" 

3867 

06657 

-0 01 06651 


JMP* 

W5X 

EXIT 

3868 


000727 

W5Z1 

EQU 

K100 

000377 

3869 


000740 

W5Z2 

EQU 

K122 

040QUU 

3870 


000733 

W5Z3 

EQU 

K116 

177400 


3871 # 

3872 # 

3873 # 

3874 # 

3875 # 

3876 • 

3877 # • I NPUT CHAR/OUTPUT PACK* 

3878 * 


3879 

06660 

0 

000000 

POOO DAC 

• • 


3880 

06661 

0 

10 01256 

JST 

CHOO 

INPUT CHAR 

3881 

06662 

0 

IQ 12437 

JST 

OKOO 

OUTPUT PACK 

3882 

06663 

-0 

01 06660 

JMP# 

POOO 

RETURN 


3883 * 


3847 

3848 

3849 

3850 

3851 

3852 

3853 

3854 

3855 

3856 

3857 

3858 

3859 

3860 

3861 

3862 

3863 

3864 

3865 

3866 

3867 

3868 

3869 
38 7u 

3871 

3872 

3873 

3874 

3875 

3876 

3877 

3878 

3879 

3880 

3881 

3882 

3883 
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3884 



* 


•TRANS HOLLE 

3805 



* 



3886 



« 


FORM HOLLERI TH 

3887 



• 


ENTRY, C/R 

3888 

06664 

0 000000 

HSOO 

DAC 

• • 

3889 

06665 

0 10 01066 

HS10 

JST 

ICOO 

3890 

06666 

0 11 00756 


CAS 

CRET 

3891 

06667 

0 01 06671 


JMP 

• ♦2 

3892 

06670 

0 01 06700 


JMP 

HS15 

3893 

06671 

0 10 12437 


JST 

OKOQ 

3894 

06672 

0 02 01475 


LDA 

ID 

3895 

06673 

0 07 00717 


SUB 

K101 

3896 

06674 

0 04 01475 


STA 

ID 

3897 

06675 

100040 


SZE 


3898 

06676 

0 01 06665 


JMP 

HS10 

3899 

06677 

-0 01 06664 


JMP# 

HSOO 

3900 

06700 

0 10 03116 

HS15 

JST 

EROO 

3901 

06701 

144323 


BCI 

1 # HS 

3902 



• 



3903 



• 



3904 



• 



3905 



• 


•DO INPUT# 

3906 



• 



3907 



• 


SET UP DO TABLE 

3908 

06702 

0 000000 

DPOO 

DAC 

## " 

3909 

06703 

0 02 00057 


LDA 

D 

3910 

06704 

0 06 00723 


ADD 

K105 

3911 

06705 

0 04 00652 


STA 

IFLG 

3912 

06706 

0 04 00057 


STA 

D 

3913 

06707 

0 06 00661 


ADD 

DU 

3914 

06710 

0 04 00041 


STA 

I 

3915 

06711 

0 10 02676 


JST 

STXI 

3916 

06712 

0 02 00040 


LDA 

A 

3917 

06713 

1 04 15376 


STA 

DP-2,1 

3918 

06714 

000201 


IAB 


oy iy 

UO/13 

1 09 13374 


STA 

DP-4,1 

3920 

06716 

0 10 02432 


JST 

I VC 0 


ITH STRING# 38B4 

*********** 3885 

THING* CHARACTER COUNT in ID ON 3886 

-4ILL ALSO TERMINATE STRING, 3887 

3888 

INPUT 1 CHARACTER 3889 

CHECK FOR CHAR * C/R 3890 

3891 

HOLLERITH STRING EXTENDS PAST END OF CARD 3892 

OUTPUT PACK THE CHARACTER 3893 

3894 

REDUCE CHARACTER COUNT BY 1 3895 

3896 

4897 

INPUT MORE CHARACTERS 3898 

3899 

3900 

HOLLERITH STRING EXTENDS OVER STATEMENT 3901 

3902 

3903 

3904 

3905 

3906 

ENTRIES, 3907 

3908 

D * D + 5 3909 

IFLG ■ NON-ZERO 3910 

3911 

3912 

I a Dl)*D 3913 

3914 

3915 

DP (1-4) * (8) 3916 

DP (1-2) » A 3917 

3918 

3919 

INPUT INT VAR/CON 3920 
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3921 

06717 

0 02 

00752 


LDA 

K134 

* » 

3922 

06720 

0 10 

02547 


JST 

TSOO 

COMMA TEST 

3923 

06721 

0 10 

02676 


JST 

STX I 


3924 

06722 

0 02 

00040 


LDA 

A 


3925 

06723 

1 04 

15400 


STA 

DP* 1 

DP ( I ) s initial value pointer 

3926 

06724 

0 10 

02432 


JST 

IVQO 

INPUT INT VAR/CON 

3927 

06725 

0 10 

02676 


JST 

STX I 


3928 

06726 

0 02 

00040 


LDA 

A 


3929 

06727 

1 04 

15377 


STA 

DP*1,1 

DP (1-1) s A - FINAL VALUE POINTER 

3930 

06730 

0 02 

00607 


LDA 

TC 


3931 

06731 

0 07 

00752 


SUB 

K134 

* , 

3932 

06732 

100040 


SZE 


IF THIRD TERM 

3933 

06733 

0 01 

06743 


JMP 

DP20 


3934 

06734 

0 10 

02432 


JST 

I voo 

READ AND ASSIGN, 

3935 

06735 

0 10 

02676 

DP10 

JST 

STXI 


3936 

06736 

0 02 

00040 


LDA 

A 


3937 

06737 

1 04 

13375 


STA 

DP-3,1 

DPU-3) a INCREMENT POINTER 

3938 

06740 

14004Q 


CRA 



3939 

06741 

0 04 

00652 


STA 

IFLG 

CLEAR I FLAG 

3940 

06742 

•0 01 

06702 


JMP* 

DPOO 

EXIT 

3941 

06743 

0 02 

00717 

DP20 

LDA 

K101 


3942 

06744 

0 04 

01475 


STA 

ID 

THIRD TERM a 1 

3943 

06745 

0 10 

04241 


JST 

A I 0 0 

ASSIGN CONSTANT 

3944 

06746 

0 01 

06735 


JMP 

DP10 


3945 




• 




3946 




• 


*DO INITIALIZE* 

3947 




» 




3948 




« 


GENERATE DO 

INITIALIZATION CODt , 

3949 

06747 

0 000000 

DS 0 0 

DAC 

• • 


3950 

06750 

0 10 

02676 


JST 

STXI 

ESTABLISH I 

3951 

06751 

1 02 

15400 


LDA 

DP* 1 

A a DP U) 

3952 

06752 

0 04 

00040 


STA 

A 


3953 

06753 

0 02 

13735 


LDA 

K200 


3954 

06754 

0 10 

06764 


JST 

DS2Q 

LOAD - LDA INITIAL VALUE 

3955 

06755 

1 02 

15376 


LDA 

DP-2,1 


3956 

06756 

0 04 

00040 


STA 

A 

A a DP ( I -2 ) 

3957 

06757 

0 02 

00060 


LDA 

RPL 



3921 

3922 

3923 

3924 

3925 

3926 

3927 

3928 

3929 

3930 

3931 

3932 

3933 

3934 

3935 

3936 

3937 
39 3 8 

3939 

3940 

3941 

3942 

3943 

3944 

3945 

3946 

3947 

3948 

3949 

3950 

3951 

3952 

3953 

3954 

3955 

3956 

3957 
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3958 

06760 

1 

04 

15400 


STA 

DP # 1 

SET RETURN ADDRESS INTO OPU) 

395b 

3959 

06761 

0 

02 

13736 


LDA 

K202 


3959 

3960 

06762 

0 

10 

06764 


JST 

DS20 

store - sta variable name 

3960 

3961 

06763 

-0 

01 

06747 


JMP# 

DSOO 


3961 

3962 





• 



OUTPUT OA SUBROUTINE 

3962 

3963 

06764 

0 

000000 

DS20 

DAC 

• • 


3963 

3964 

06765 

0 

00201 


IAS 



3964 

3965 

06766 

0410 

60 


LLL 

16 

SET B = 0 

3965 

3966 

06767 

0 

10 

12467 


JST 

0B00 

OUTPUT OA 

3966 

3967 

06770 

0 

10 

02676 


JST 

STXJ 

RESTORE I 

3967 

3968 

06771 

-0 

01 

06764 


JMP* 

DS20 

RETURN 

3966 

3969 





• 




3969 

3970 

06772 

0 

00 

00000 

DS90 

PZE 

0 


3970 

3971 





• 




3971 

3972 





• 




3972 

3973 





• 


•DO 

TERMINATION# 

3973 

3974 





• 




3974 

3975 





• 


GENERATE DO TERMINATION CODE, 

3975 

3976 

06773 

0 

000000 

DUQ0 

DAC 

»« 


3976 

3977 

06774 

0 

10 

02676 


JST 

STXI 


3977 

3978 

06775 

1 

02 

15376 


LDA 

DP-2,1 


3976 

3979 

06776 

0 

04 

00040 


STA 

A 


3979 

3980 

06777 

0 

02 

13735 


LDA 

K20 0 


3960 

3981 

07000 

0 

10 

06764 


JST 

DS20 

OUTPUT LDA VARIABLE NAME 

3981 

3982 

07001 

1 

02 

15375 


LDA 

DP-3,1 


3982 

3983 

07002 

0 

04 

00040 


STA 

A 


3983 

3984 

07003 

0 

02 

13732 


LDA 

K203 


3984 

3985 

07004 

0 

10 

06764 


JST 

DS20 

OUTPUT ADD INCREMENT 

3985 

3986 

07005 

1 

02 

15377 


LDA 

DP-1,1 


3986 

3987 

07006 

0 

04 

00040 


STA 

A 


3987 

3988 

07007 

0 

02 

13760 


LDA 

OMK9 


3988 

3989 

07010 

0 

10 

06764 


JST 

DS20 

OUTPUT CAS FINAL VALUE 

3989 

3990 

07011 

140040 


CRA 



3990 

3991 

07012 

0 

04 

00040 


STA 

A 


3991 

3992 

07013 

0 

02 

00060 


LDA 

RPL 


3992 


li / u 

0 

uo 

00 721 


A UU 

KltM 


3993 

3994 

07015 

0 

04 

00630 


STA 

AF 


3994 
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3995 

07016 

1 02 15400 


IDA 

DP # 1 




3995 

3996 

07017 

0 04 06772 


STA 

DS90 




3996 

3997 

07020 

0 02 13733 


LDA 

OH I 5 


JUMP *+3 


3997 

3998 

07021 

0 10 13773 


JST 

OROO 


OUTPUT REL 


3998 

3999 

07022 

0 02 06772 


LDA 

DS9Q 




3999 

4000 

07023 

0 04 00630 


STA 

AF 




4000 

4001 

07024 

0 02 13733 


LDA 

OM 15 


JMP RPL (SAVED) - POINTS TO »STA» 

INST. 4001 

4002 

07025 

0 10 13773 


JST 

OROO 


OUTPUT REL 


4002 

4003 

07026 

0 02 13733 


LDA 

OM 1 5 


OUTPUT JMP RPl (SAVED) 


4003 

4004 

07027 

0 10 13773 


JST 

OROO 


OUTPUT REL 


4004 

4005 

07030 

*0 01 06773 


JMP* 

DQO 0 




4005 

4006 



• 


# 




4006 

4007 



* 


•EXPRESSION* 



4007 

4008 



• 


• 




4006 

4009 



• 


THE 

RESULTANT OUTPUT IS A BUILT UP AGIN 


4009 

4010 



* 



table that 

IS FURTHER PROCESSED BY 

SCAN, 

4010 

4011 

07031 

0 00 00000 

T0EX 

PZE 

0 




4011 

4012 


007031 

6XT0 

EQU 

TOEX 




4012 

4013 

07032 

0 00 00000 

TlEX 

PZE 

0 




4013 

4014 

07033 

0 00 00000 

T2EX 

PZE 

0 




4014 

4015 

07034 

0 00 00000 

T3£X 

PZE 

0 




4015 

4016 

07035 

0 00 00000 

T5EX 

PZE 

0 




4016 

4017 

07036 

0 00 00000 

T6EX 

PZE 

0 




4017 

4018 

07037 

0 00 00000 

EXT7 

PZE 

0 




4018 

4019 

07040 

0 00 00000 

T9EX 

PZE 

0 




4019 

4020 

07041 

0 000000 

EX00 

DAC 

It 




4020 

4021 

07042 

0 04 00664 


STA 

F 


F * (A) 


4021 

4022 

07043 

0 02 00040 


LDA 

A 


SAVE POINTER TO FIRST 

variable 

4022 

4023 

07044 

0 04 00066 


STA 

TRF A 


FOR LATER POSSIBLE TRACING 

4023 

4024 

07045 

0 02 00057 


LDA 

D 


I i U*DO*10 


4024 

4025 

07046 

0 06 00661 


ADD 

DO 




4025 

4026 

07047 

0 06 00743 


ADD 

K125 


* 8 


4026 

4027 

07050 

0 04 00041 


STA 

I 




4027 

4028 

07051 

0 10 10016 


JST 

EX99 


DATA POOL CHECK 


4028 

4029 

07052 

0 10 02676 


JST 

STX I 




4029 

4030 

07053 

140040 


CRA 





4030 

4031 

07054 

0 04 07031 


STA 

EXTO 


TO * 0 


4031 
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4032 

07055 

0 04 00642 


STA 

B 

4033 

07056 

0 04 07037 


STA 

EXT 7 

4034 

07057 

0 06 07770 


ADD 

EX92U2 

4035 

07060 

0414 67 


LGL 

9 

4036 

07061 

1 04 15377 


STA 

DP-1,1 

4037 

07062 

140401 


CMA 


4038 

07063 

0 04 00652 


STA 

IFLG 

4039 

07064 

0 02 00113 


lda 

LO 

4040 

07065 

1 04 15376 


STA 

DP-2# 1 

4041 

07066 

0 10 02676 

EX10 

JST 

STX I 

4042 

07067 

140040 


CRA 


4043 

07070 

0 04 07032 


STA 

T1EX 

4044 

07071 

1 04 15400 


STA 

DP# 1 

4045 

07072 

1 04 15401 


STA 

DP*1 # 1 

4046 

07073 

0 02 00653 


LDA 

IM 

4047 

07074 

100040 


SZE 


4048 

07075 

0 01 07331 


JMP 

EX50 

4049 

07076 

0 02 00724 


LDA 

K1Q6 

4050 

07077 

140407 


TCA 


4051 

07100 

0 04 00000 


STA 

0 

4052 



* 



4053 

07101 

0 02 00607 

EX11 

LDA 

TC 

4054 

07102 

1 07 07746 


SUB 

EX9Q + 6 # 1 

4055 

07103 

101040 


SNZ 


4056 

07104 

0 01 07114 


JMP 

EXU 

4057 

07105 

0 12 00000 


IRS 

XR 

4058 

07106 

0 01 07101 


JMP 

EXU 

4059 

07107 

0 10 02676 


JST 

STX I 

4060 

07110 

0 02 00670 


LDA 

libf 

4061 

07111 

100040 


SZE 


4062 

07112 

0 01 07270 


JMP 

EX39 

4063 

07113 

0 01 10010 


JMP 

EX95 

4064 

07114 

1 02 07754 

EXU 

LDA 

EX9l*6,l 

4065 

07115 

0 04 00000 


STA 

0 

4066 

07116 

1 01 00000 


JMP 

0,1 

4067 



• 


SPECIAL OPERATOR 

4068 



* 


LIBRARY in hhi 


3 C NO. 180463000 REV. D PAGE 114 


8 s 0 4032 

T7 = 0 4033 

4 {] 34 

0(1*2) a ?*t 4Q35 

0 (I) * 0 4036 

4037 

IFLG NOT 0 4038 

4039 

0(1-2) ■ LO 4040 

4041 

4042 

T1 * 0 4043 

AQIN(I) = T ( 1 ) ■ 0 4044 

4045 

If IM NOT ZERO# 4046 

4047 

GO TO EX5q 4048 

4049 

4050 

4051 

PERFORM TABLE SEARCH 4052 

GO TO ROUTINE ACCORDING 4053 

TO TC, 4054 

IF NO MATCH# ERROR 4055 


4056 

4057 
4056 
4059 

SPECIAL LIBRARY FLAG 4060 

4061 

4062 

ERROR CONDITION 4063 

4064 

4065 

PROCESS LEADING OPERATOR 4066 

flag SET WHEN COMPILING The FORTRAN 4067 

CH CASE THE OPERATIONS ( A» ) AND 4066 
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4069 



• 


( 

sA ) ARE REQUIRED, THIS LOGIC RILL ALLOW 

4070 



• 


TO BE 

PROCESSED WITHOUT GIVING AN ERROR MESSAGE IF 

4071 



• 


SPECIAL LIBRARY FLAG (LIBF) IS SET TO NON-ZERO 

4072 



• 




4073 

07117 

0 02 00642 

EX12 

LDA 

B 

TC = ( 

4074 

07120 

0 06 00726 


ADD 

K109 

B * B + 16 

4075 

07121 

0 04 00642 


STA 

B 

SXF s NON-ZERO 

4076 

07122 

0 04 00050 


STA 

SXF 

4077 

07123 

0 10 02354 

EX14 

JST 

1100 

INPUT ITEM 

4078 

07124 

0 10 02676 


JST 

STX I 

4079 

07125 

0 01 07066 


JMP 

EX10 

GO TO EX10 

4080 

07126 

0 10 02676 

6X16 

JST 

STX I 

TC * * 

4081 

07127 

0 02 00607 


LDA 

TC 

4082 

07130 

0414 67 


LGL 

9 

01 (1-2) = *, 8*13 

4083 

07131 

0 06 00642 


ADD 

B 

4084 

07132 

0 06 00747 


ADD 

K129 


4085 

07133 

1 09 15377 


ERA 

DP-1,1 


4086 

07134 

140100 


SSR 



4087 

07135 

101040 


SN2 



4088 

07136 

0 01 07141 


JMP 

*♦3 


4089 

07137 

0 10 03116 


JST 

EROO 

NO, CQNSTR ERROR 

4090 

07140 

150327 


BCI 

1,PW 

• NOT PRECEDED BY ANOTHER * 

4091 

07141 

0 02 00726 


LDA 

K109 

CE « *20) 

4092 

07142 

0414 67 


LGL 

9 

4093 

07143 

1 13 15377 


IMA 

DP-1,1 


4094 

07144 

0 03 00735 


ANA 

K118 

a *777 

4095 

07145 

0 06 00717 


ADD 

K101 


4096 

07146 

1 05 15377 


ERA 

DP-1, 1 

CHANGE * TO #* 

4097 

07147 

1 04 15377 


STA 

DP-1,1 

4098 

07150 

0 01 07123 


JMP 

EX14 

GO TO EX14 

4099 

07151 

0 02 00720 

EX18 

LDA 

K102 

*2 

4100 

07152 

0 04 00607 


STA 

TC 

SET TC TO - 

4101 

07153 

0 02 00743 


LDA 

K125 

= 8 

4102 

07154 

0 04 07032 


STA 

T1EX 

T1 s 8 

4103 

07155 

0 10 02676 


JST 

StXI 


4104 

07156 

1 02 15377 


LDA 

DP-1,1 


4105 

07157 

0 03 00735 


ANA 

K118 



4069 

4070 

4071 

4072 

4073 

4074 

4075 

4076 

4077 
4070 

4079 

4080 

4081 
4002 

4083 

4084 

4085 


4087 

4088 

4089 

4090 

4091 

4092 

4093 

4094 

4095 

4096 
4U97 

4098 

4099 

4100 

4101 

4102 

4103 

4104 

4105 
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4106 

07160 

0 07 00642 


SUB 

B 

6 , GT , I (1-2) -B 


4106 

4107 

07161 

0 07 07032 


SUB 

T1EX 



4107 

4108 

07162 

100400 


SPL 




4108 

4109 

07163 

0 01 07166 


JMP 

#♦3 



4109 

4110 

07164 

0 10 03116 

EX19 

JST 

EROO 

NO » ERROR 


4110 

4111 

07165 

147324 


BCI 

1 # NT 

logical ,not, NOT a unary 

OPERATOR 

4111 

4112 

07166 

0 02 07031 

EX20 

LDA 

TOEX 

YES 


4112 

4113 

07167 

100040 


SZE 


T (0) s 0 


4113 

4114 

07170 

0 01 07230 


JMP 

EX34 



4114 

4115 

07171 

0 02 00642 

EX22 

LDA 

B 

YES, 


4115 

4116 

07172 

0 06 00664 


ADD 

F 

B ♦ ♦ (5) ,GT. 0 


4116 

4117 

07173 

10040Q 


SPL 


NO, ERROR 


4117 

4118 

07174 

0 01 10012 


JMP 

EX96 



4118 

4119 

07175 

0 10 02676 

EX24 

JST 

STX I 



4119 

4120 

07176 

0 02 00607 


LDA 

TC 



4120 

4121 

07177 

0414 67 


LGL 

9 



4121 

4122 

07200 

0 06 07032 


ADD 

T1EX 



4122 

4123 

07201 

0 06 00642 


ADD 

B 



4123 

4124 

07202 

1 04 15401 


STA 

DP*1,1 

OI(I) « TC , T1*B 


<124 

4125 

07203 

0 10 10016 


JST 

EX99 

DATA POOL CHECK 


4125 

4126 

07204 

0 01 07123 


JMP 

EX14 



4126 

4127 

07205 

0 10 02676 

EX26 

JST 

STX I 



4127 

4128 

07206 

1 02 15377 


LDA 

DP-1,1 



4128 

4129 

07207 

0 03 00735 


ANA 

K118 

IF I (1-2) ,LT. B 


4129 

4130 

07210 

0 11 00642 


CAS 

6 



4130 

4131 

07211 

0 01 10014 


JMP 

EX97 

ERROR-----MULTIPLE * OR - 

SIGNS 

4131 

4132 

07212 

101000 


NOP 




4132 

4133 

07213 

0 02 00750 

EX30 

LDA 

K131 

set index to 


4133 

4134 

07214 

0 04 ooouo 


STA 

0 

SEARCH OPERATOR TABLE FOR 

trailing 

4134 

4135 

07215 

1 02 07772 

EX31 

LDA 

E X92 + 14 , 1 

OPERATOR AFTER HAVING ENCOUNTERED AN 

4135 

4136 

07216 

0 07 00607 


SUB 

TC 

ITEM OR A NEGATE, 


4136 

4137 

07217 

100040 


SZE 




4137 

4138 

07220 

0 01 07226 


JMP 

EX32 



4138 

4139 

07221 

1 02 10010 


LDA 

EX93 + 14, 1 



4139 

4140 

07222 

0 04 07225 


STA 

*♦3 



4140 

4141 

07223 

0 10 02676 


JST 

STX I 



4141 

4142 

07224 

-0 01 07225 


JMP* 

#♦1 



4142 



HONEYWELL 


COMPUTER CONTROL DIVISION 


PROGRAM DOCUMENTATION 


* C210-Q01-66Q1 (FRTN) SC NO, 18046301)0 REV, D PAGE H7 


4143 

07225 

0 

000000 


DAC 

• t 


4143 

4144 

07226 

0 

12 

00000 

EX32 

IRS 

XR 

CONTROL OPERATOR LOOP 

4144 

4145 

07227 

0 

01 

07215 


J HR 

EX31 

CONTINUE 

4145 

4146 

07230 

0 

02 

00642 

EX34 

IDA 

B 

IF B = 0 

4146 

4147 

07231 

0 

07 

07037 


SUB 

EXT7 


4147 

4148 

07232 

100040 


SZE 



4148 

4149 

07233 

0 

01 

07274 


JMP 

EX40 

NO, GO TO EX4 o 

4 149 

4150 

07234 

0 

02 

07031 


LDA 

TOEX 

IF T CO) s 0 

4i50 

4151 

07235 

100040 


SZE 



4151 

4152 

07236 

0 

01 

07251 


JMP 

6X38 

NO, GO TO EX33 

4152 

4153 

07237 

140040 

6X35 

CRA 



4153 

4154 

07240 

0 

04 

00652 


STA 

IP LG 

iflg s 0 

4154 

4155 

07241 

0 

02 

00664 


LDA 

F 


4155 

4156 

07242 

141206 


AOA 



4156 

4157 

07243 

101400 


SMI 


F , U£, -1 

4157 

4158 

07244 

0 

01 

07246 


JMP 

EX36 

YES 

4158 

4159 

07245 

*0 

01 

07041 


JMP* 

EXOO 

RETURN - NO 

4159 

4160 

07246 

0 

10 

10040 

EX36 

JST 

CAOO 

SCAN 

4160 

4161 

07247 

0 

10 

12700 


JST 

OTOO 

OUTPUT TRIADS 

4161 

4162 

07250 

•0 

01 

07041 


JMP* 

EXOO 

RETURN 

4162 

4163 

07251 

0 

10 

02676 

6X38 

JST 

STX I 


4163 

4164 

07252 

0 

02 

00642 


LDA 

B 


4i64 

4165 

07253 

0 

07 

00726 


SUB 

K1Q9 


4165 

4166 

07254 

0 

04 

00642 


STA 

B 


4166 

4167 

07255 

0 

02 

00721 


LDA 

K103 


4167 

4168 

07256 

0 

04 

00045 


STA 

mPl 


4168 

4169 

07257 

0 

02 

07031 


LDA 

TOEX 


4169 

4170 

07260 

0414 

67 


LGL 

9 

0 ( I ) * T (0) 

4170 

4171 

07261 

0 

06 

00642 


ADD 

B 

I ( I > » B*9 

4171 

4172 

07262 

0 

06 

00742 


ADD 

K124 

I s 1*2 

4172 

4173 

07263 

1 

04 

15401 


STA 

DP*1 # 1 


4173 

4174 

07264 

0 

10 

10016 


JST 

EX99 

DATA POOL CHECK 

4174 

4175 

07265 

140040 


CRA 



4175 

4176 

07266 

0 

04 

07031 


STA 

TOEX 

TO a u 

4176 

4177 

07267 

0 

04 

07037 


STA 

EXT7 

T7 = 0 

4177 

4178 

07270 

0 

02 

00113 

EX 39 

LDA 

LO 


4178 

4179 

07271 

0 

04 

00040 


STA 

A 

o 

II 

<t 

4179 
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4180 

07272 

0 

04 

00653 


STA 

IM 

4181 

07273 

0 

01 

07066 


JMP 

EX10 

4182 

07274 

0 

02 

00607 

EX40 

LDA 

TC 

4183 

07275 

0 

11 

00672 


CAS 

K5 

4184 

07276 

0 

01 

07300 


JMP 

#♦2 

4185 

07277 

0 

01 

07303 


JMP 

EX41 

4166 

07300 

0 

07 

00752 


SUB 

K134 

4187 

07301 

100040 


SZE 


4188 

07302 

0 

01 

07316 


JMP 

EX44 

4189 

07303 

0 

02 

00041 

EX41 

LDA 

I 

4190 

07304 

0 

07 

00720 

EX42 

SUB 

K102 

4191 

07305 

0 

04 

QQQQQ 


STA 

XR 

4192 

07306 

1 

02 

15401 


LDA 

DP*1,1 

4193 

07307 

0 

03 

00735 


ANA 

K118 

4194 

07310 

0 

11 

00642 


CAS 

B 

4195 

07311 

0 

01 

07314 


JMP 

• ♦3 

4196 

07312 

0 

01 

07175 


JMP 

EX24 

4197 

07313 

-0 

01 

07041 


JMP* 

EXOO 

4198 

07314 

0 

02 

00000 


LOA 

XR 

4199 

07315 

0 

01 

07304 


JMP 

EX42 

4200 

07316 

0 

10 

02555 

EX44 

JST 

IPOO 

4201 

07317 

0 

01 

07213 


JMP 

EX30 

4202 

07320 

•0 

02 

00040 

EX46 

LDA* 

A 

4203 

07321 

0 

04 

07036 


STA 

T6EX 

4204 

07322 

• 0 

02 

07036 


LDA* 

T6EX 

4205 

07323 

0 

11 

00113 


CAS 

LO 

4206 

07324 

0 

01 

07326 


JMP 

• ♦2 

4207 

07325 

0 

01 

07230 


JMP 

EX34 

4208 

07326 

0 

04 

00577 


STA 

02 

4209 

07327 

0 

10 

10436 

EX48 

JST 

ETOO 

4210 

07330 

0 

01 

07230 


JMP 

EX34 

4211 

07331 

0 

10 

02676 

EX5Q 

JST 

STX ! 

4212 

07332 

0 

02 

00040 


LDA 

A 

4213 

07333 

1 

04 

15400 


STA 

DP, 1 

4214 

07334 

0 

02 

00655 


LDA 

IU 

4215 

0 7335 

101100 


SLN 


4216 

07336 

0 

01 

07213 


JMP 

EX3Q 
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IM 'MOT EQ 0 4180 

4181 

TC 0 , 4182 

*'254 (, ) IN BCD MODE 4183 

4184 

4185 

*17 4186 

4187 

NO » GO TO EX44 4188 

4189 

4190 

s VS, ! ( J > 4191 

4192 

4193 

4194 

4195 

EQUAL, GO TO EX24 4196 

LESS, RETURN 4197 

GREATER, REPEAT LOOP 4198 

4199 

) - INPUT OPERATOR 4200 

GO TO EX30 4201 

4202 

IF OKQKA)) * 1(0) 4203 

4204 

4205 

4206 

GO TO EX34 4207 

02 * LO 4208 

ENTER TRIAD 4209 

4210 

4211 

A C I ) * A 4212 

4213 

IU = SUB OR ARR 4214 

4215 

NO, GU TO EX30 4216 
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4217 

07337 

0 02 00607 

LDA 

TC 


4218 

07340 

0 07 00702 

SUB 

K17 

TC * ( 

4219 

07341 

100040 

SZE 



4220 

07342 

0 01 07666 

JHP 

EX76 

NO, GO TO EX76 

4221 

07343 

0 02 00642 

LDA 

B 

YES# B * B*16 

4222 

07344 

0 06 00726 

ADD 

K109 

4223 

07345 

0 04 00642 

STA 

B 


4224 

07346 

0 02 00655 

LDA 

IU 

IU ■ ARR 

4225 

07347 

0 07 00721 

SUB 

K103 


4226 

07350 

100040 

SZE 



4227 

07351 

0 01 07663 

JHP 

EX75 

NO, GO TO EX 75 

4228 

07352 

140040 

CRA 



4229 

07353 

1 04 15400 

STA 

DP, 1 

A ( I ) a 0 

4230 

07354 

0 04 00616 

STA 

X4 

X4 a 0 

4231 

07355 

0 04 07034 

STA 

T3EX 

T3 * 0 

4232 

07356 

0 04 10032 

STA 

K 

T5 a A 

4233 

07357 

0 02 00633 

LDA 

DO 


4234 

07360 

0 04 07040 

STA 

T9EX 

T9 a do 

4235 

07361 

0 02 00040 

LDA 

A 


4236 

07362 

0 04 07035 

STA 

T5EX 

T5 a A 

4237 

07363 

0 02 00631 

LDA 

AT 


4238 

07364 

0 07 00723 

SUB 

K105 

AT a DUM 

4239 

07365 

100040 

SZE 



4240 

07366 

0 01 07660 

JHP 

EX74 

NO, GO TO EX74 

4241 

07367 

140040 

CRA 


4242 

07370 

0 04 07033 

STA 

T2EX 

YES, T CO) * 0 

4243 

07371 

0 10 10016 

JST 

EX99 

DATA POOL CHECK 

4244 

07372 

0 10 02676 

JST 

STX I 

4245 

07373 

0 02 00040 

LDA 

A 


4246 

07374 

1 04 15400 

STA 

DP# 1 

A ( I ) a A 

4247 

07375 

0 02 00751 

LDA 

K132 

01 U> ■ A, 11 

4248 

07376 

0414 67 

LGL 

9 

4249 

07377 

0 06 00742 

ADD 

K124 


4250 

07400 

1 04 15401 

STA 

DP+1,1 

1=9 

4251 

07401 

0 02 00633 EX54 

LDA 

DO 

IF DO * 1, GO TO 

4252 

07402 

0 07 00717 

SUB 

K101 

4253 

07403 

101040 

SNZ 




4217 

4218 

4219 

4220 

4221 

4222 

4223 

4224 

4225 

4226 

4227 

4228 

4229 

4230 

4231 

4232 

4233 

4234 

4235 

4236 

4237 

4238 

4239 

4240 

4241 

4242 

4243 

4244 

4245 

4246 

4247 

4248 

4249 

4250 

4251 

4252 

4253 
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4254 

07404 

0 01 

07427 


JMP 

EX56 

4255 

07405 

0 10 

10016 


JST 

EX99 

4256 

07406 

0 01 

07410 


JMP 

*♦2 

4257 

07407 

0 12 

10032 

EX55 

IRS 

K 

4258 

07410 

0 02 

10032 


LDA 

K 

4259 

07411 

0 04 

00000 


STA 

XR 

4260 

07412 

1 02 

00612 


LDA 

x,i 

4261 

07413 

0 04 

07036 


STA 

T6EX 

4262 

07414 

0 10 

02676 


JST 

ST X I 

4263 

07415 

0 02 

07036 


LDA 

T6EX 

4264 

07416 

1 04 

15400 


STA 

DP# 1 

4265 

07417 

0 02 

00721 


LDA 

K103 

4266 

07420 

0414 

67 


LGL 

9 

4267 

07421 

0 06 

07034 


ADD 

T3EX 

4268 

07422 

0 06 

00747 


ADD 

K129 

4269 

07423 

1 04 

15401 


STA 

DP*1 # 1 

4270 

07424 

0 03 

00735 


ANA 

K118 

4271 

07425 

0 06 

00721 


ADD 

K103 

4272 

07426 

0 04 

07034 


STA 

T3EX 

4273 

07427 

0 10 

02432 

EX56 

JST 

IVOO 

4274 

07430 

0 10 

10016 


JST 

EX99 

4275 

07431 

0 10 

02676 


JST 

STXI 

4276 

07432 

0 02 

00040 


LDA 

A 

4277 

07433 

1 04 

15400 


STA 

DP# 1 

4278 

07434 

0 02 

00573 


LDA 

NT 

4279 

07435 

100040 


SZE 


4280 

07436 

0 01 

07614 


JMP 

EX66 

4281 

07437 

0 10 

01251 


JST 

UCOO 

4282 

07440 

0 10 

01521 


JST 

DNOO 

4283 

07441 

101040 


SNZ 


4284 

07442 

0 01 

07450 


JMP 

EX57 

4285 

07443 

0 07 

00717 


SUB 

K101 

4286 

07444 

101040 


SNZ 


4287 

07445 

0 01 

07450 


JMP 

EX57 

4288 

07446 

0 10 

03116 


JST 

EROO 


U f ■» ■» / 

1^172^ 


y ci 

1 #SU 

4290 

07450 

0 10 

02676 

EX57 

JST 

STXI 


DIVISION 


PROGRAM DOCUMENTATION 


3C NO, 180463000 


DATA POOL CHECK 
K s K*1 


T6 a X <K) 


0 ( 1 ) • « 

I (I) * T3*13 
T3 * TJ*16 
A (A) a T 6 
■ 13 


T3 » A < A ) 

INPUT INTEGER VARIABLE 
DATA POOL CHECK 

A ( I ) a A 


CONSTANT ENCOUNTERED 
UNINPUT COLUMN 
INPUT DO NOT ASSIGN 

IM « 0 


im * integer 

SUBSCRIPT I SCHEME NTER NOT 


REV , D PAGE 120 


4254 

4255 

4256 

4257 

4258 

4259 

4260 

4261 

4262 

4263 

4264 

4265 

4266 

4267 

4268 

4269 

4270 

4271 

4272 

4273 

4274 

4275 

4276 

4277 

4278 

4279 

4280 

4281 

4282 

4283 

4284 

4285 

4286 
42B7 
4288 

A CONSTANT 4289 

4290 
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4291 

07451 

0 02 00717 

LDA 

K101 


4291 

4292 

07452 

0414 67 

LGL 

9 


4292 

4293 

07453 

0 06 07034 

ADD 

T3EX 


4293 

4294 

07454 

0 06 00745 

ADD 

K127 


4294 

4295 

07455 

1 04 15401 

STA 

DP*1,1 

0( I) = ♦, It I) * T3*U 

4295 

4296 

07456 

0 10 10016 

JST 

6X99 

DATA POOL CHECK 

4296 

4297 

07457 

0 02 07040 

EX58 LDA 

T96X 


4297 

4298 

07460 

0 04 00633 

STA 

DO 

RESET 0(0) 

4298 

4299 

07461 

0 02 01475 

LDA 

ID 

SUBSCRIPT SIZE 

4299 

4300 

07462 

0 07 00717 

SUB 

K101 

ID « ID-1 

4300 

4301 

07463 

0 04 01475 

STA 

ID 


4301 

4302 

07464 

101040 

SNZ 


IF ZERO » GO TO EX60 

4302 

4303 

07465 

0 01 07500 

JMP 

EX60 


4303 

4304 

07466 

0 02 10032 

LDA 

K 


4304 

4305 

07467 

0 04 00000 

STA 

0 


4305 

4306 

07470 

1 02 00633 

LDA 

DO » 1 

D ( K ) * 0 

4306 

4307 

07471 

101040 

SNZ 



4307 

4308 

07472 

0 01 07601 

JMP 

EX67 

YES - (DUMMY DIMENSION) 

4308 

4309 

07473 

000201 

IAB 



4309 

4310 

07474 

0 02 01475 

LDA 

ID 


4310 

4311 

07475 

0 10 02703 

JST 

I MOO 


4311 

4312 

07476 

0 06 07033 

ADD 

T2EX 


4312 

4313 

07477 

0 04 07033 

STA 

T2EX 

T 2 = T 2 ♦ I D»D ( K ) 

4313 

4314 

07500 

0 02 07040 

EX60 LDA 

T9EX 


4314 

4315 

07501 

0 04 00633 

STA 

DO 

RESET D( 0 ) 

4315 

4316 

07502 

0 02 10032 

LDA 

K 


4316 

4317 

07503 

0 04 00000 

STA 

0 


4317 

4318 

07504 

1 02 00614 

LDA 

X*2» 1 

X ( K*2 ) • 0 

4318 

4319 

07505 

101040 

SNZ 



4319 

4320 

07506 

0 01 07517 

JMP 

EX62 

YES - FINISHED 

4320 

4321 

07507 

0 02 00752 

LDA 

K134 

* 1 7 

4321 

4322 

07510 

0 10 02547 

JST 

TSQU 

COMMA TEST 

4322 

4323 

07511 

1 02 00634 

LDA 

do*i,i 


4323 

4324 

07512 

000201 

IAB 



4324 

4325 

07513 

1 02 00633 

LDA 

D0,1 


4325 

4326 

07514 

0 10 02703 

JST 

I MO 0 


4326 

4327 

07515 

1 04 00634 

STA 

DO+1 » 1 

D ( K ♦ 1 ) s D(K*1)*0(K) 

4327 
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4328 

07516 

0 01 Q74U7 


JMP 

EX55 


4328 

4329 

07517 

0 10 02676 

EX62 

JST 

STXI 


4329 

4330 

07520 

1 02 15377 


LDA 

DP-1,1 

DOES 0(1-2) * * 

4330 

4331 

07521 

140100 


SSP 



4331 

4332 

07522 

0404 67 


LGR 

9 


4332 

4333 

07523 

0 11 00721 


CAS 

K103 


4333 

4334 

07524 

0 01 07526 


JMP 

*♦2 


4334 

4335 

07525 

0 01 07575 


JMP 

EX66 

YES, 

4335 

4336 

07526 

101040 


SNZ 


NO, 

4336 

4337 

07527 

0 01 07562 


JMP 

EX64 

0(1-2) * 0 - YES 

4337 

4338 

07530 

0 11 00751 


CAS 

K132 

DOES 0(1-2) > A 

4338 

4339 

07531 

0 01 07537 


JMP 

EX63 


4339 

4340 

07532 

0 01 07534 


JMP 

* + 2 

YES 

4340 

4341 

07533 

0 01 07537 


JMP 

EX63 


4341 

4342 

07534 

0 02 07033 


LDA 

T2EX 

IS T2 » 0 

4342 

4343 

0 7535 

101040 


SNZ 



4343 

4344 

07536 

0 01 07567 


JMP 

EX65 

YES (DUMMY ARRAY (1,1,1) ) 

4344 

4345 

07537 

0 02 00717 

EX63 

LDA 

K101 


4345 

4346 

07540 

1 04 15377 


STA 

DP-1,1 

OKI-2) « 1 

4346 

4347 

07541 

0 02 07033 


LDA 

T2EX 

A ( I ) * T2 

4347 

4348 

07542 

1 04 15400 


STA 

DP, 1 


4348 

4349 

07543 

0 02 00753 


LDA 

K137 

Q«»X* ( ’ 24 ) , 1*2 

4349 

4350 

07544 

1 04 15401 


STA 

DP*1 , 1 


4350 

4351 

07545 

140040 


CRA 



4351 

4352 

07546 

1 04 15403 


STA 

DP*3, 1 

01(1*2) • 0 

4352 

4353 

07547 

0 02 07035 


LDA 

T5EX 


4353 

4354 

07550 

1 04 15402 


STA 

DP*2,1 

A ( I ♦ 2 ) ■ T5 

4354 

4355 

07551 

0 10 10016 


JST 

EX99 

DATA POOL CHECK 

4355 

4356 

07552 

0 10 10040 


JST 

CAOO 

SCAN 

4356 

4357 

07553 

0 02 00576 


LDA 

01 


4357 

4358 

07554 

0 04 00040 


STA 

A 

A * 01 

4358 

4359 

07555 

0 10 02672 


JST 

STX A 


4359 

4360 

07556 

1 02 15402 


LDA 

DP+2 , 1 

S C A ) 5 non-zero 

4360 

4361 

07557 

140500 


SSM 



4361 

4362 

07560 

1 04 15402 


STA 

DP+2 , 1 

S ( A ) = 1 

4362 

4363 

07561 

0 01 07316 


JMP 

EX44 


4363 

4364 

07562 

0 02 00113 

EX 64 

LDA 

LO 


4364 
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436b 

07563 

1 

04 

15400 


STA 

DP , 1 

A ( I ) a lQ 

4365 

4366 

07564 

0 

10 

10016 


JST 

EX99 

DATA POOL CHECK 

4366 

4367 

07565 

0 

10 

02676 


JST 

STX I 


4367 

4368 

07566 

0 

01 

U 7537 


JMP 

EX63 


4368 

4369 

07567 

0 

02 

00041 

EX65 

LDA 

I 


4369 

4370 

07570 

0 

07 

00722 


SUB 

K104 


4370 

4371 

07571 

0 

04 

00041 


STA 

I 

I * 1-4 

4371 

4372 

07572 

0 

02 

07035 


LDA 

T5EX 


4372 

4373 

07573 

1 

04 

13374 


STA 

DP-4,1 

A (I) * T5 

4373 

4374 

07574 

0 

01 

07316 


JMP 

EX44 


4374 

4375 

07575 

0 

02 

00041 

EX66 

LDA 

I 


4375 

4376 

07576 

0 

07 

00720 


SUB 

K102 


4376 

4377 

07577 

0 

04 

00041 


STA 

I' 

I « 1-2 

4377 

4370 

07600 

0 

01 

07517 


JMP 

EX62 

ASSIGN I NT CONSTANT 

4378 

4379 

07601 

0 

10 

04241 

EX67 

JST 

A 1 0 0 


4379 

4380 

07602 

0 

10 

02676 


JST 

STX I 

SET XR TO I 

4380 

4381 

07603 

0 

02 

00040 


LDA 

A 


4381 

4382 

07604 

1 

04 

15400 


STA 

DP, 1 

A ( I ) ■ A 

4362 

4383 

07605 

0 

02 

00717 


LDA 

K101 


4383 

4384 

07606 

0414 

67 


LGL 

9 


4384 

4385 

07607 

0 

06 

07034 


ADD 

T3EX 


43B5 

4386 

07610 

0 

06 

00745 


ADD 

K127 


4386 

4387 

07611 

1 

04 

15401 


STA 

DP*1,1 

OKI) » ♦, T3*ll 

4387 

4388 

07612 

0 

10 

10016 


JST 

EX99 

DATA POOL CHECK 

4368 

4389 

07613 

0 

01 

07500 


JMP 

EX60 


4389 

4390 

07614 

0 

02 

00607 

EX 68 

LDA 

TC 

IS TC 

4390 

4391 

07615 

0 

11 

00721 


CAS 

K103 

3 « 

4391 

4392 

07616 

0 

01 

07620 


JMP 

• ♦2 


4392 

4393 

07617 

0 

01 

07621 


JMP 

*♦2 


4393 

4394 

07620 

0 

01 

07457 


JMP 

EX58 

NO 

4394 

4395 

07621 

0414 

67 


LGL 

9 


4395 

4396 

07622 

0 

06 

07034 


ADD 

T3EX 


4396 

4397 

07623 

0 

06 

00747 


ADD 

K129 

■13 

4397 

4398 

07624 

1 

04 

15401 


STA 

DP*1,1 

OI(I) * #, T 3 ♦ 1 3 

4398 

4399 

07625 

0 

10 

02437 


JST 

IROO 

INPUT INTEGER VAR/CON 

4399 

4400 

07626 

0 

01 

07430 


JMP 

EX56*1 


4400 

4401 

07627 

140040 

EX69 

CRA 


SET LISTING FOR OCTAL ADDH 

4401 
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4402 

07630 

0 

04 

00040 


STA 

A 



4402 

4403 

07631 

0 

02 

13733 


LDA 

OH I 5 

JMP 0 INSTRUCTION 


4403 

44Q4 

07632 

0 

04 

0064Q 


STA 

DF 

SET LISTING FOR SYMBOLIC A I N S T R , 


4404 

4405 

07633 

0 

10 

14127 


JST 

OAO 0 

OUTPUT ABSOLUTE 


4405 

4406 

07634 

0 

02 

00060 


LDA 

RPL 



4406 

4407 

07635 

0 

04 

00577 


STA 

02 



4407 

4408 

07636 

0 

02 

00754 


LDA 

K136 



4408 

4409 

07637 

0 

04 

00600 


STA 

P 

P s H 


4409 

4410 

07640 

0 

10 

10436 


JST 

ETOO 

ENTER TRIAD 


4410 

4411 

07641 

0 

10 

06664 


JST 

HSO 0 

TRANSFER HOLLERITH STRING 


4411 

4412 

07642 

0 

02 

00756 


LDA 

CRET 

( A ) « C/R 


4412 

4413 

07643 

0 

10 

12437 


JST 

OKOO 

OUTPUT PACK 


4413 

4414 

07644 

140040 


CRA 




4414 

4415 

07645 

0 

04 

00000 


STA 

0 

SET LISTING FOR OCTAL ADDR. 


4415 

4416 

07646 

0 

04 

00040 


STA 

A 

SET LISTING FOR OCTAL ADDR. 


4416 

4417 

07647 

0 

02 

00577 


LDA 

02 



4417 

4418 

07650 

0 

07 

00717 


SUB 

K101 



4418 

4419 

07651 

0 

10 

14135 


JST 

OSOO 

OUTPUT STRING RPL-1 


4419 

4420 

07652 

0 

10 

01256 


JST 

CHQO 

INPUT CHARACTER 


4420 

4421 

07653 

0 

10 

01412 


JST 

FNOO 



4421 

4422 

07654 

0 

10 

02676 


JST 

ST X I 

RESET INDEX To I 


4422 

4423 

07655 

0 

02 

00044 


LDA 

L 



4423 

4424 

07656 

1 

04 

15400 


STA 

DP,1 

A ( I ) « L 


4424 

4425 

07657 

0 

01 

07666 


JHP 

EX76 



4425 

4426 

07660 

0 

02 

00630 

EX74 

LDA 

AF 



4426 

4427 

07661 

0 

04 

07033 


STA 

T2EX 

T2 » AF 


4427 

4428 

07662 

0 

01 

07401 


JHP 

EX54 

GO TO EX54 


4426 

4429 

07663 

0 

02 

00752 

EX 75 

LDA 

K134 



4429 

4430 

07664 

0 

04 

00607 


STA 

TC 

TC * , 


4430 

4431 

07665 

0 

01 

07175 


JHP 

EX24 

GO TO EX24 


4431 

4432 

07666 

1 

02 

15377 

EX76 

LDA 

DP-1, 1 



4432 

4433 

07667 

0404 

67 


LGR 

9 



4433 

4434 

07670 

0 

03 

10027 


ana 

K133 



4434 

4435 

07671 

0 

07 

00752 


SUB 

K134 



4435 

4436 

07672 

101040 


SNZ 




4436 

4437 

07673 

0 

01 

07230 


JMP 

EX34 

WITHIN AN ARGUMENT LIST 


4437 

4439 

07674 

0 

10 

03116 


JST 

EROO 



4438 
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4439 

07675 

140707 


BCI 

1> AG 

SUBROUTINE OR ARRAY NAME NOT IN ARG, LIST 

4439 

4440 

07676 

0 02 00745 

EX78 

LDA 

K127 



4440 

4441 

07677 

0 04 07032 

EX79 

STA 

T16X 

T Cl) = 11 


4441 

4442 

07700 

0 01 07171 


JMP 

EX22 



4442 

4443 

07701 

0 02 00747 

EX80 

LDA 

K129 

T (1) = 13 


4443 

4444 

07702 

0 01 07677 


JMP 

EX79 



4444 

4445 

07703 

0 02 00724 

6X81 

LDA 

K106 



4445 

4446 

07704 

0 04 07032 


STA 

T1EX 

T Cl) = 6 


4446 

4447 

07705 

0 01 07166 


JMP 

EX20 



4447 

4448 

07706 

0 02 00722 

6X82 

LDA 

K104 

T (1) * 4 


4446 

4449 

07707 

0 01 07704 


JMP 

EX81*1 



4449 

4450 

07710 

0 02 07031 

6X83 

LDA 

TOEX 

T (0) *0 


4450 

4451 

07711 

100040 


SZE 




4451 

4452 

07712 

0 01 07726 


JMP 

EX84 



4452 

4453 

07713 

0 02 00607 


LDA 

TC 

YES, 


4453 

4454 

07714 

0 04 07031 


STA 

TOEX 

T (0) s TC 


4454 

4455 

07715 

0 02 07755 


LDA 

EX92*l 



4455 

4456 

07716 

0 04 00607 


STA 

TC 

TC « - 


4456 

4457 

07717 

0 02 00642 


LDA 

B 



4457 

4458 

07720 

0 06 00726 


ADD 

K109 



4458 

4459 

07721 

0 04 00642 


STA 

B 



4459 

4460 

07722 

0 04 07037 


STA 

EXT7 



4460 

4461 

07723 

0 02 07725 


LDA 

• ♦2 



4461 

4462 

07724 

0 01 07677 


JMP 

EX79 



4462 

4463 

07725 

177773 


DEC 

•5 



4463 

4464 

07726 

0 10 03116 

6X84 

JST 

EROO 

ERROR 


4464 

4465 

07727 

151314 


BCI 

lr RL 

MORE THAN 1 RELATIONAL 

OPERATOR 

4465 

4466 

07730 

0 02 00664 

m 

X 

OD 

VJ1 

LDA 

F 



4466 

4467 

07731 

0 06 00720 


ADD 

K102 

T C5) ■ T C 5 ) 42 » B « 

0 

4467 

4468 

07732 

0 04 00664 


STA 

F 



4468 

4469 

07733 

0 06 00642 


ADD 

B 



4469 

4470 

07734 

101040 


SNZ 




4470 

4471 

07735 

0 01 07175 


JMP 

EX24 



4471 

4472 

07736 

0 10 03116 


JST 

EROO 

ERROR 


4472 

4473 

07737 

142721 


BCI 

liEQ 

MULTIPLE *»S, OR EXPRESSION TO LEFT OF » 

4473 

4474 

07740 

000250 

6X90 

OCT 

250 

( 


4474 

4475 

07741 

000003 


OCT 

3 

• 


4475 



HONEY W in L L 


COMPUTER CONTROL DIVISION 


PROGRAM DOCUMENTATION 


* C21Q-QQ1-6601 (FRTN ) 


4476 

07742 

000005 

OCT 

5 

4477 

07743 

000001 

OCT 

1 

4478 

07744 

000002 

OCT 

2 

4479 

07745 

000310 

OCT 

310 

4480 

07746 

0 007117 

6X91 DAC 

EX12 

4481 

07747 

0 007126 

OAC 

EXj.6 

4482 

07750 

0 007151 

DAC 

EX18 

4483 

07751 

0 007205 

DAC 

EX26 

4484 

07752 

0 007205 

DAC 

EX26 

4485 

07753 

0 007627 

DAC 

EX69 

4486 

07754 

000001 

EX92 OCT 

1 

4487 

07755 

000002 

OCT 

2 

4488 

07756 

000003 

OCT 

3 

4489 

07757 

000004 

OCT 

4 

4490 

07760 

000006 

OCT 

6 

4491 

07761 

000007 

OCT 

7 

4492 

07762 

000015 

OCT 

15 

4493 

07763 

000012 

OCT 

12 

4494 

07764 

000014 

OCT 

14 

4493 

07765 

000010 

OCT 

10 

4496 

07766 

000013 

OCT 

13 

4497 

07767 

000011 

OCT 

11 

4498 

07770 

000016 

OCT 

16 

4499 

07771 

000016 

OCT 

16 

4500 

07772 

0 007676 

EX93 DAC 

EX78 

4501 

07773 

0 007676 

DAC 

EX78 

4502 

07774 

0 007701 

DAC 

EX80 

4503 

07775 

0 007701 

DAC 

EX80 

4304 

07776 

0 007703 

DAC 

EX81 

4505 

07777 

0 007706 

DAC 

EX82 

4506 

10000 

0 007710 

DAC 

EX83 

4507 

10001 

0 007710 

DAC 

EX63 

4508 

10002 

0 007710 

DAC 

EX83 

4509 

10003 

0 007710 

DAC 

EX83 

4510 

10004 

0 007710 

DAC 

EX83 

4511 

10005 

0 007710 

DAC 

EX83 

4512 

10006 

0 007730 

DAC 

EX85 
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NOT 


4476 

♦ 


4477 



4478 

H 


4479 

( 


4480 

• 


4481 

NOT 


4482 

* 


4483 

9 


4484 

H 


4485 

♦ 


4486 

m 


4487 

• 


4488 

/ 


4489 

AND 


4490 

OR 


4491 

NE 


4492 

EQ 


4493 

GT 


4494 

LT 


4495 

GE 


4496 

IE 


4497 

s 


4498 

« (ERROR) 


4499 

♦ 


4500 

4501 

• 


4502 

/ 


4503 

AND 


4504 

OR 


4505 

NE 


4506 

eq 


4507 

gt 


4508 

LT 


4509 

GE 


4510 

LE 


4511 

- 


4512 
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4514 

10007 

0 007230 


DAC 

EX34 


NONE UF THESE 




4513 

4514 

10010 

0 10 03116 

EX 95 

JST 

EROQ 






4514 

4515 

10011 

147720 


BCI 

l,OP 


MURE THAN ONE 

OPERATOR 

IN A HOW 

4515 

4516 

10012 

0 10 03116 

6X96 

JST 

EROO 


ERROR 




4516 

4517 

10013 

150301 


BCI 

1 # PA 


OPERATOR MUST 

BE WITHIN 

PARENTHESES 

4517 

4518 

10014 

0 10 03116 

6X97 

JST 

EROO 


ERROR 




4518 

4519 

10015 

152717 


BCI 

l*UO 


MULTIPLE ♦ OR 

- SIGNS NOT AS UNARY OPS 

4519 

4520 



# 

BUMP 

THE I COUNT BY TWO 

AND CHECK FOR 

DATA 

OVERFLOW 

4520 

4521 

10016 

0 000000 

6X99 

DAC 

• • 






4521 

4522 

10017 

0 12 00041 


IRS 

I 






4522 

4523 

10020 

0 12 00041 


IRS 

I 






4523 

4524 

10021 

0 02 00041 


IDA 

I 






4524 

4525 

10022 

141206 


AOA 







4525 

4526 

10023 

0 11 00044 


CAS 

L 






4526 

4527 

10024 

101000 


NOP 







4527 

4528 

10025 

0 01 03456 


JMP 

AS50 






4528 

4529 

10026 

•0 01 10016 


JMP« 

EX99 






4529 

4530 

10027 

000077 

K133 

OCT 

77 






4530 

4531 

10030 

177772 

K 130 

DEC 

• 6 






4531 

4532 

10031 

000041 

K141 

DEC 

33 






4532 

4533 

10032 

0 00 00000 

K 

PZE 

0 






4533 

4534 

10033 

177770 

KM8 

DEC 

-8 






4534 

4535 



• 








4535 

4536 



• 








4536 

4537 



« 








4537 

4538 



* 








4538 

4539 



« 




• ••• 




4539 

4540 



• 


• SCAN 


* 




4540 

4541 



• 


•TRIAD SEARCH 

• 




4541 

4542 



* 


• TEMP 

STORE CHECK* 




4542 

4543 



• 


***** 






4543 

4544 

10034 

0 00 00000 

T0CA 

PZE 

0 






4544 

4545 

10035 

0 00 00000 

T1CA 

PZE 

0 






4545 

4546 

10036 

0 00 00000 

T2CA 

PZE 

0 






4546 

4547 

10037 

0 00 00000 

f 9CA 

PZE 

0 






4547 

4548 



• 


THE A 0 I N 

TABLE IS 

PROCESSED FROM THE 

BOTTOM 

4548 

4549 



• 


UP 

AND ENTRIES ARE FORMED 

FOR INCLUSION 

4549 
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4550 



• 


IN 

THE TRIAD 

TABLE, LEVELS ARE USED 

4551 



• 


TO 

CONTROL THE ORDER OF ENTRY INTO 

4552 



• 


the 

TRIADS, 

SIGN CONTROL IS ALSO 

4553 



e 


ACCOMPLISHED 

IN THIS ROUTINE, 

4554 

10040 

0 000000 

CA00 

DAC 

• • 



4555 

10041 

0 02 00113 


LDA 

LO 



4556 

10042 

0 04 10457 


STA 

ACCP 


INDICATE EMPTY ACCUM 

4557 

10043 

0 10 02676 

CA04 

JST 

STX I 


establish I 

4558 

10044 

0 04 10035 


STA 

T1CA 


T 1 « I 

4559 

10045 

1 02 15377 


LDA 

DP-1,1 



4560 

10046 

0 03 00735 


ANA 

K118 


IF I (1-2) > 0, 

4561 



• 




OR , LT , I (I) 

4562 

10047 

0 04 10037 


STA 

T9CA 



4563 

10050 

1 02 15401 


LDA 

DP*1,1 



4564 

10051 

0 03 00735 


ANA 

Kiie 



4565 

10052 

0 11 10037 


CAS 

T9CA 



4566 

10053 

0 01 10061 


JMP 

CA08 


GO I'D CA08 

4567 

10054 

101000 


NOP 




4568 

10055 

0 02 00041 


LDA 

I 



4569 

10056 

0 07 00720 


SUB 

K102 



4570 

10057 

0 04 00041 


STA 

I 


I » 1-2 

4571 

10060 

0 04 00000 


STA 

0 



4572 

10061 

1 02 15403 

CA08 

LDA 

DP*3 , 1 



4573 

10062 

1 05 15401 


ERA 

DP*1,1 



4574 

10063 

0 04 10034 


STA 

TOCA 



4575 

10064 

1 02 15401 


LDA 

DP*1,1 



4576 

10065 

0 03 00735 


ANA 

K118 



4577 

10066 

0 Q4 10036 


STA 

T2CA 



4578 

10067 

1 02 15401 


LDA 

DP+1, 1 



4579 

10070 

140100 


SSP 




4580 

10071 

0404 67 


LGR 

9 


P s 0 ( I ) 

4581 

10072 

0 04 00600 


STA 

P 



4582 

10073 

0 11 00720 


CAS 

K102 


IF P IS NOT * OR /, GO 

4583 

10074 

0 11 00723 


CAS 

K105 



4584 

10075 

0 01 10100 


JMP 

CA10 



4585 

10076 

0 01 10100 


JMP 

CAlQ 



4586 

10077 

0 01 10143 


JMP 

CA14 


GO TO C A 1 4 


4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 
4566 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

a ws a ■=- 

4586 
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4587 

10100 

0 02 10034 

CA1Q 

LDA 

TOCA 

4588 

10101 

101400 


SMI 


4589 

10102 

0 01 10121 


JMP 

CA13 

4590 

10103 

0 02 10033 


LDA 

KM8 

4591 

10104 

0 13 00000 


IMA 

XR 

4592 

10105 

000201 


I AS 


4593 

10106 

0 02 00600 


LDA 

P 

4594 

10107 

1 11 10426 


CAS 

CA90+8* 1 

4595 

10110 

0 01 10112 


JMP 

• ♦2 

4596 

10111 

0 01 10115 


JMP 

#♦4 

4597 

10112 

0 12 00000 


IRS 

XR 

4598 

10113 

0 01 10107 


JMP 

#•4 

4599 

10114 

0 01 10324 


JMP 

CA45 

4600 

10115 

1 02 10436 


LDA 

C A91+8 i 1 

4601 

10116 

0 04 00600 


STA 

P 

4602 

10117 

000201 


IAB 


4603 

10120 

0 04 00000 


STA 

XR 

4604 

10121 

0 02 10030 

CA13 

LDA 

K130 

4605 

10122 

0 13 00000 


IMA 

XR 

4606 

10123 

000201 


IAB 


4607 

10124 

0 02 00600 


LDA 

P 

4608 

10125 

1 11 10426 


CAS 

CA9Q + 8 * 1 

4609 

10126 

0 01 10130 


JMP 

• 42 

4610 

10127 

0 01 10137 


JMP 

CA50 

4611 

10130 

0 12 00000 


IRS 

XR 

4612 

10131 

0 01 10125 


JMP 

#•4 

4613 

10132 

000201 


IAB 


4614 

10133 

0 04 00000 


STA 

XR 

4615 

10134 

000201 


IAB 


4616 

10135 

1 02 15401 


LDA 

DP*1 » 1 

4617 

10136 

0 01 10140 


JMP 

• 42 

4618 

10137 

140040 

CA5Q 

CRA 


4619 

10140 

0 04 10034 


STA 

TOCA 

4620 

10141 

000201 


IAB 


4621 

10142 

0 04 00000 


STA 

XR 

4622 

10143 

1 02 15400 

CA14 

LDA 

DP » 1 

4623 

10144 

0 04 00576 


STA 

01 


P AQ t 


01 s A ( 1 ) 
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4624 

10145 

1 02 15402 

IDA 

DP*2,1 

4625 

10146 

0 04 00577 

STA 

02 

4626 

10147 

0 02 10036 

LDA 

T2CA 

4627 

10150 

101040 

SNZ 


4628 

10151 

0 01 10301 

JMP 

CA37 

4629 

10152 

1 02 15377 

LDA 

DP-1,1 

4630 

10153 

140100 

SSP 


4631 

10154 

0404 67 

LGR 

9 

4632 

10155 

0 04 10035 

STA 

T1CA 

4633 

10156 

1 02 15377 

LDA 

DP-1,1 

4634 

10157 

0 03 00735 

ANA 

K118 

4635 

10160 

0 07 10036 

SUB 

T2CA 

4636 

10161 

100400 

SPL 


4637 

10162 

0 01 10203 

JMP 

CA18 

4638 

10163 

100040 

SZE 


4639 

10164 

0 01 10043 

JMP 

CA04 

4640 

10165 

0 02 00577 

LDA 

02 

4641 

10166 

0 07 10457 

SUB 

ACCP 

4642 

10167 

100040 

SZE 


4643 

10170 

0 01 10043 

JMP 

CA04 

4644 

10171 

0 02 00600 

LDA 

P 

4645 

10172 

0 07 00721 

SUB 

K103 

4646 

10173 

101400 

SMI 


4647 

10174 

0 01 10314 

JMP 

CA39 

4648 

10175 

0 02 10035 

LDA 

T1CA 

4649 

10176 

0 07 00600 

SUB 

P 

4650 

10177 

100040 

SZE 


4651 

10200 

0 02 00717 

LDA 

K101 

4652 

10201 

0 06 00717 

ADD 

K 10 1 

4653 

10202 

0 04 00600 

STA 

P 

4654 

10203 

0 02 00041 CA18 

LDA 

I 

4655 

10204 

0 04 00000 

STA 

0 

4656 

10205 

1 02 15402 CA20 

LDA 

DP*2,1 

4657 

10206 

1 04 15400 

STA 

DP, 1 

4656 

10207 

1 02 15403 

LDA 

DP + 3,1 

46 59 

1 02 10 

1 04 i54ui 

STA 

DP+1, 1 

4660 

10211 

1 40 10 U 

SSP 
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02 « A (1*2) 

IF ZERO, GO TO CA37 

IF T 2 iGT, I (1*2) 


GO ro 

P = - OR ♦ 

J*I 

AG I *4(0) s AQ I N ( J+2 ) 


4624 

4625 

4626 

4627 

4628 

4629 

4630 

4631 

4632 

4633 

4634 

4635 

4636 

4637 

4638 

4639 

4640 

4641 

4642 

4643 

4644 

4645 

4646 

4647 

4648 

4649 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 
4656 

4659 

4660 
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4661 

10212 

101040 

SNZ 

4662 

10213 

0 

01 

10217 

JMP 

4663 

10214 

0 

12 

00000 

IRS 

4664 

10215 

0 

12 

00000 

IRS 

4665 

10216 

0 

01 

10205 

JMP 

4666 

10217 

0 

10 

02676 CA22 

JST 

4667 

10220 

1 

02 

15401 

LDA 

4668 

10221 

140100 

SSP 

4669 

10222 

0404 

67 

LGR 

4670 

10223 

0 

11 

00600 

CAS 

4671 

10224 

0 

01 

10230 

JMP 

4672 

10225 

0 

11 

00752 

CAS 

4673 

10226 

0 

01 

10230 

JMP 

4674 

10227 

0 

01 

10256 

JMP 

4675 

10230 

0 

10 

10335 CA24 

JST 

4676 

10231 

0 

02 

00600 

LDA 

4677 

10232 

0 

11 

00751 

CAS 

4678 

10233 

0 

01 

10254 

JMP 

4679 

10234 

0 

01 

10301 

JMP 

4680 

10235 

0 

11 

00725 

CAS 

4681 

10236 

0 

01 

10254 

JMP 

4682 

10237 

0 

01 

10301 

JMP 

4683 

10240 

0 

11 

00724 

CAS 

4684 

10241 

0 

01 

10254 

JMP 

4685 

10242 

0 

01 

10301 

JMP 

4686 

10243 

0 

11 

00721 

CAS 

4687 

10244 

0 

01 

10254 

JMP 

4688 

10245 

0 

01 

10301 

JMP 

4689 

10246 

0 

11 

00717 

CAS 

4690 

10247 

0 

01 

10251 

JMP 

4691 




• 


4692 




• 


4693 




• 


4694 

10250 

0 

01 

10301 

JMP 

4695 

10251 

0 

11 

00720 CA26 

CAS 

4696 

10252 

0 

01 

10254 

JMP 

4697 

10253 

0 

01 

10276 

JMP 


CA22 

XR j s j + 2 

XR 

CA20 

STXI 

DP+1,1 

IF 0 ( I ) = , 

9 

P 

CA 24 
K134 
CA24 

CA30 GO TO CA30 

STOO TRIAD SEARCH 

P 

K132 IF P s +,*, AND* OR 

CA28 

CA37 GO TO CA37 

K107 

CA28 ELSE* 00 TO CA26 

CA37 

K106 

C A28 

CA37 

K1D3 

CA 28 

CA37 

K101 

CA26 


CA37 

K102 

*♦2 [f P : - 

CA35 GO TO 


4661 

4662 

4663 

4664 

4665 

4666 

4667 
4666 

4669 

4670 

4671 

4672 

4673 

4674 

4675 

4676 

4677 
4676 

4679 

4680 

4681 

4682 

4683 

4684 

4685 

4686 

4687 

4688 

4689 

4690 

4691 

4692 

4693 

4694 

4695 

4696 

4697 
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4698 

10254 

0 

02 

00576 

CA26 

LDA 

01 

4699 

10255 

0 

10 

10404 


JST 

TCOO 

4700 

10256 

0 

02 

00577 

CA3Q 

LDA 

02 

4701 

10257 

0 

10 

10404 


JST 

TCOO 

4702 

10260 

0 

10 

10436 

CA31 

JST 

ETOO 

4703 

10261 

0 

10 

02676 

CA32 

JST 

STX I 

4704 

10262 

0 

02 

00576 


LDA 

01 

4705 

10263 

1 

04 

154U0 


STA 

DP# 1 

4706 

10 264 

1 

02 

15401 


LDA 

DP*1 # 1 

4707 

10265 

0400 

61 


LRL 

15 

4708 

10266 

0 

02 

10034 


LDA 

TOCA 

4709 

10267 

0404 

61 


LGR 

15 

4710 

10270 

0410 

61 


LLL 

15 

4711 

10271 

1 

04 

15401 


STA 

DP + 1 # 1 

4712 

10272 

0 

02 

10036 


LDA 

T2CA 

4713 

10273 

100040 


S2E 


4714 

10274 

0 

01 

10043 


JMP 

CA04 

4715 

10275 

-0 

01 

10040 


JMP* 

CAOO 

4716 

10276 

0 

02 

10034 

CA35 

LDA 

TOCA 

4717 

10277 

0 

05 

15034 


ERA 

« f 100000 

4718 

10300 

0 

04 

10034 


STA 

TOCA 

4719 

10301 

0 

02 

00577 

CA37 

LDA 

02 

4720 

10302 

0 

13 

00576 


IMA 

01 

4721 

10303 

0 

04 

00577 


STA 

02 

4722 

10304 

101040 


SNZ 


4723 

10305 

0 

01 

10261 


JMP 

CA32 

4724 





• 



4725 





* 



4726 





• 



4727 

10306 

0 

10 

10335 


JST 

STOO 

4728 

10307 

0 

02 

10034 


LDA 

TOCA 

4729 

10310 

101400 


SMI 


4730 

10311 

0 

01 

10254 


JMP 

CA28 

4731 

10312 

0 

02 

00600 


LDA 

P 

4732 

10313 

0 

01 

10251 


JMP 

CA26 

4733 

10314 

0 

07 

00746 

CA39 

SUB • 

K 12 8 

4734 

10315 

101040 


SNZ 
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4698 

TEMP STORE CHECK 


4699 

4700 

TEMP STORE CHECK 


4701 

ENTER TRIAD 


4702 

4703 

4704 

4705 

4706 

4707 

4708 

4709 

4710 

4711 

IF T2 NOT ZERO# 


4712 

4713 

GO TO CA04 


4714 

ELSE, RETURN 


4715 

4716 

4717 

4718 

4719 

01 * = 02 


4720 

4721 

IF 02 ■ 0, 


4722 

GO TO CA32 


4723 

4724 

4725 

4726 

TRIAD SEARCH 


4727 

4728 

4729 

GO TO CA28 


4730 

4731 

ELSE# GO TO CA26 


4732 

4733 

IF P = , OR 


4734 
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4735 

10316 

0 01 10043 


JMP 

CA04 



4735 

4736 

10317 

0 02 10035 


LDA 

T1CA 



4736 

4737 

10320 

0 07 00722 


SUB 

K104 



4737 

4738 

10321 

100040 


SZE 



ELSE # 

4738 

4739 

10322 

0 01 10203 


JMP 

CA18 


GO TO CA16 

4739 

4740 

10323 

0 01 10043 


JMP 

C A04 



4740 

4741 

10324 

0 02 10035 

CA45 

LDA 

T1CA 



4741 

4742 

10325 

0 04 00041 


STA 

I 


I » T1 

4742 

4743 

10326 

0 04 10036 


STA 

T2CA 



4743 

4744 

10327 

140040 


CRA 




4744 

4745 

10330 

0 04 10034 


STA 

TOCA 



4745 

4746 

10331 

0 04 00577 


STA 

02 


02 * C « 0 

4746 

4747 

10332 

0 07 00731 

1 

SUB 

K110 


P « C 

4747 

4748 

10333 

0 04 00600 


STA 

P 



4748 

4749 

10334 

0 01 10230 


JMP 

CA24 


GO TO CA24 

4749 

4750 



• 


IF THE CURRENT 

TRIAD (IN WORKING STORAGE) MATCHES 

475U 

4751 



* 



ANY TRIAD 

TABLE ENTRY# EXIT WITH THE 

4751 

4752 



• 



POINTER VALUE OF THE MATCHING ENTRY 

4752 

4753 



• 



(THIS ACCOMPLISHES ELIMINATION OF REDUNDANT 

4753 

4754 



• 



SUBEXPRESSION CALCULATIONS, 

4754 

4755 

10335 

0 000000 

ST00 

DAC 

• • 


TRIAD SEARCH 

4755 

4756 

10336 

0 02 00664 


LDA 

F 



4756 

4757 

10337 

0 06 00721 


ADD 

K103 



4757 

4758 

10340 

100040 


SZE 




4756 

4759 

10341 

0 01 10353 


JMP 

ST10 


GO TO ST10 

4759 

4760 

10342 

0 02 00600 

ST05 

LDA 

P 


ELSE, IF P 8 x 

4760 

4761 

10343 

0 07 00755 


SUB 

K139 



4761 

4762 

10344 

101040 


SNZ 




4762 

4763 

10345 

0 01 10260 


JMP 

CA31 


GO TO CA31 

4763 

4764 

10346 

0 02 00576 


LDA 

01 


ELSE# IF Q1*ACCP 

4764 

4765 

10347 

0 07 10457 


SUB 

ACCP 



4765 

4766 

10350 

101040 


SNZ 




4766 

4767 

10351 

0 01 10256 


JMP 

CA30 


GO TO CA30 

4767 

4768 

10352 

-0 01 10335 


JMP# 

STOO 


ELSE, RETURN 

4768 

4769 

10353 

0 02 00113 

ST10 

LDA 

LO 



4769 

4770 

10354 

0 04 00000 


STA 

XR 



4770 

4771 

10355 

0 02 00000 

ST20 

LDA 

XP 



4 77 i 
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4772 

10356 

0 07 00721 


SUB 

K 1 0 3 


4773 

10357 

0 04 00000 


STA 

XR 

J = J-2 

4774 

10360 

0 07 00044 


SUB 

L 

IF J , LT t L 

4775 

10361 

100400 


SPL 



4776 

10362 

0 01 10342 


JMP 

STU5 

GO TO ST05 

4777 

10363 

0 02 00577 


LDA 

02 


4778 

10364 

1 07 15400 


SUB 

DP 1 1 

IF 01/P/02 ,Nfc. Ol/P/02 ( J ) 

4779 

10365 

100040 


SZE 



4780 

10366 

0 01 10355 


JMP 

ST20 

GO TO ST20 

4781 

10367 

1 02 15402 


LDA 

DP#2 » 1 


4782 

10370 

140100 


SSP 


EXTRACT OFF STORE BIT 

4783 

10371 

0 07 00600 


SUB 

P 


4784 

10372 

100040 


SZE 



4785 

10373 

0 01 10355 


JMP 

ST20 


4786 

10374 

0 02 00576 


LDA 

01 


4787 

10375 

1 07 15401 


SUB 

DP*1 » 1 


4788 

10376 

100040 


SZE 



4789 

10377 

0 01 10355 


JMP 

ST20 

01 * J 

4790 

10400 

0 02 00000 


LDA 

XR 


4791 

10401 

0 04 00576 


STA 

01 


4792 

10402 

0 10 02676 


JST 

STX I 

ESTAbLISH I 

4793 

10403 

0 01 10261 


JMP 

CA32 

GO TO CA32 

4794 



• 


IF J IS A 

REFERENCE TO A TRIAD , THE TEMP 

4795 



* 


STORE 

BIT OF THE REFERENCED TRIAD IS SET 

4796 

10404 

0 000000 

TC00 

DAC 

• • 

TEMP STORE CHECK 

4797 

10405 

0 04 00000 


STA 

XR 


4798 

10406 

0 02 00054 


LDA 

ABAR 


4799 

10407 

0 07 Q0U0U 


SUB 

XR 


4800 

10410 

101400 


SMI 


IS J ,GR, ABAR 

4801 

10411 

-0 01 10404 


JMP# 

TCOO 

NO , 

4802 

10412 

1 02 15402 


LDA 

DP + 2,1 

YES, 

4803 

10413 

140500 


SSM 



4804 

10414 

1 04 15402 


STA 

DP*2 , 1 

S ( J ) * 1 

4805 

10415 

-0 01 10404 


JMP# 

TCOO 


4806 

10416 

000001 

CA90 

OCT 

1,2,11,10, 

13,14,12,15 


10417 

QQGQQ2 






10420 

000011 






4772 

4773 

4774 

4775 

4776 

4777 
4770 

4779 

4780 

4781 

4782 

4783 

4784 

4785 

4786 

4787 

4788 

4789 

4790 

4791 

4792 

4793 

4794 

4795 

4796 

4797 

4798 

4799 

4800 

4801 

4802 

4803 

4804 

4805 
4006 
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10421 

000010 







10422 

000013 







10423 

000014 







10424 

000012 







10425 

000015 






4807 

10426 

000002 

CA91 

OCT 

2 # 1 » 1 3 1 14*11* 10 *1^ 

.15 



10427 

000001 







10430 

000013 







10431 

000014 







10432 

000011 







10433 

000010 







10434 

000012 







10435 

000015 






4808 



• 





4809 



• 





4810 



« 





4811 



• 


•ENTER TRIAD* 



4812 

4813 



ft 

ft 


STORE CURRENT TRIAD INTO THE NEXT TRIAD 

ENTRY 

4814 



* 


LOCATION, 



4815 

10436 

0 000000 

ET0Q 

DAC 

• • 



4816 

10437 

0 10 030U7 


JST 

SAV 



4817 

10440 

0 02 00044 


LDA 

L 



4818 

10441 

0 07 00721 


SUB 

K1Q3 

*3 


4819 

10442 

0 04 00044 


STA 

L 

L*L-3 


4820 

10443 

0 04 10457 


STA 

ACCP 

SET ACCUM pTR TO LAST 

TRIAD ENTRY 

4821 

10444 

0 04 00000 


STA 

0 

J»L 


4822 

10445 

0 02 00600 


LDA 

P 



4823 

10446 

1 04 15402 


STA 

DP*2 , 1 

P < J > s P 


4824 

10447 

0 02 00576 


LDA 

01 



4825 

10450 

1 04 15401 


STA 

DP*1 * 1 

01(J) * 01 


4826 

10451 

0 02 00577 


LDA 

02 



4827 

10452 

1 04 15400 


STA 

DP* 1 

02(J) * 02 


4828 

10453 

0 02 00000 


LDA 

0 



4829 

10454 

0 04 00576 


STA 

01 

U1*J 


4830 

10455 

0 10 03016 


JST 

RST 



4831 

10456 

-0 01 10436 


JMP* 

ETOO 




4807 


4808 

4809 

4810 

4811 

4812 

4813 

4814 

4815 

4816 

4817 

4818 

4819 

4820 

4821 

4822 

4823 
4024 

4825 

4826 

4827 

4828 

4829 
4880 
4831 
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4832 10457 

4833 

4834 

4835 10460 

4836 

4837 

4838 

4839 

4840 

4841 10524 

4842 10525 

4843 10526 

4844 10527 

4845 10530 

4846 10531 

4847 10532 

4848 10533 

4849 10534 

4850 10535 

4851 10536 

4852 10537 

4853 10540 

4854 10541 

4855 10542 

4856 10543 

4857 10544 

4858 10545 

4859 10546 

4860 10547 

4861 10550 

4862 10551 

4863 10552 

4864 10553 

4865 10554 

4866 10555 

4867 10556 

4868 10557 


0 000000 


0 00 00000 
0 000000 
140040 
0 04 10524 
0 02 00702 
0 10 02547 
0 10 02373 
0 02 00041 
101040 
0 01 10564 
0 11 10031 
101000 
0 01 10621 
0 06 00721 
0 04 00041 

0 10 02672 

1 02 15400 
000201 

0 10 02676 
000201 

1 04 10460 

0 10 02672 

1 02 15401 
000201 

0 10 02676 
000201 

1 04 10461 
0 02 00040 


ACCP DAC 
SFT8 8SS 

• 

TOGE PZE 
GEOO DAC 
CRA 
STA 
LDA 
JST 
GE10 JST 


• » 


ACCUM POINTER 


36 SUBFuNCT I ON TABLE 

•GENERATE SUBPRO ENTRANCE^ 

OUTPUT SUBPROGRAM ENTRANCE CODE , INCLUDING THE 
CALL TO ARGUMENT ADDRESS TRANSFER, 

#* 


TOGE 

K17 

TSOO 

NAOO 


LDA 

I 

SNZ 


JMP 

GE20 

CAS 

K141 

NOP 


JMP 

GE30 

ADD 

K103 

STA 

I 

JST 

STXA 

LDA 

DP $ 1 

MB 


JST 

STX I 

MB 


STA 

SFT6,1 

JST 

SfXA 

LDA 

DP*1,1 

MB 


JST 

STX I 

M3 


STA 

SF7B+ 1 

LDA 

A 


( TEST 

INPUT NAME 
IFF I a 0 t 

GO TO GE2Q 

MAKE ENTRY IN SFTB TABLE 

H FULL, GO TO GE30 
SET XR TO A 

ESTABLISH I 

SET XR TO A 

SET XR TO I 


4832 

4833 

4834 

4835 

4836 

4837 

4838 

4839 

4840 

4841 

4842 

4843 

4844 

4845 

4846 

4847 
4846 

4849 

4850 

4851 

4852 

4853 
4654 

4855 

4856 

4857 

4858 

4859 

4860 

4861 

4862 

4863 

4864 

4865 
4666 

4867 

4868 
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4869 

10560 

1 04 10462 

STA 

SFTB#2» 1 

4870 

10561 

0 10 02672 

JST 

STXA 

4871 

10562 

140040 

CRA 


4872 

10563 

1 04 15401 

STA 

DP#1,1 

4873 

10564 

0 02 00723 QE20 

LDA 

K1 05 

4874 

10565 

000201 

IAB 


4875 

10566 

0 02 00060 

LDA 

RPL 

4876 

10567 

0 06 10524 

ADD 

TOGE 

4877 

10570 

0 06 00721 

ADD 

K103 

4878 

10571 

0 10 04214 

JST 

APOO 

4879 

10572 

0 12 10524 

IRS 

TOGE 

4880 

10573 

0 02 00752 

LDA 

K134 

4881 

10574 

0 07 00607 

SUB 

TC 

4882 

10575 

101040 

SNZ 


4883 

10576 

0 01 10532 

JMP 

GE10 

4884 

10577 

0 10 02555 

JST 

I POO 

4885 

10600 

140040 

CRA 


4886 

10601 

0 04 00640 

STA 

DF 

4887 

10602 

0 10 14127 

JST 

OAQO 

4888 

10603 

0 02 10524 

LDA 

TOGE 

4889 

10604 

0 04 01475 

STA 

ID 

4890 

10605 

0 02 10623 

LDA 

K69 

4891 

10606 

0 04 00571 

STA 

NAMF #1 

4892 

10607 

0 10 02722 

JST 

NFQO 

4893 

10610 

0 10 12330 

JST 

OLQO 

4894 

10611 

0 02 10524 

LDA 

TOGE 

4895 

10612 

140407 

TCA 


4896 

10613 

0 04 10524 

STA 

TOGE 

4897 

10614 

140040 

CRA 


4898 

10615 

0 10 14127 

JST 

OAOO 

4899 

10616 

0 12 10524 

IRS 

TOGE 

4900 

10617 

0 01 10614 

JMP 

*•3 

4901 

10620 

-0 01 10525 

JMP# 

GEOO 

4902 

10621 

0 10 03116 GE30 

JST 

EROO 

4903 

10622 

140705 

BCI 

1 * AE 

4904 

10623 

140724 K69 

BCI 

1, AT 

4905 


• 




SET XR TO A 
CLEAR OLD USAGE 


(B> = UUM 

DEFINE AFT <A*RPL#TQ*3) 
TO * TG + 1 

IF TO * , 

GO TO GE10 
INPUT OPERATOR 


OUTPUT ABS (0) 

ID « TU 
NAMF s AT 

FILL IN REMAINING NAME 
OUTPUT OBJECT LINK 


OUTPUT NUMBER OF ARGS 
OUTPUT SPACE FOR ARG, ADDR. 

RETURN 

CONSTR, ERROR 
AT 


4869 

487Q 

4871 

4872 

4873 

4874 

4875 

4876 

4877 

4878 

4879 

4880 

4881 

4882 

4883 

4884 

4885 

4886 

4887 

4888 

4889 

4890 

4891 

4892 

4893 

4894 

4895 

4896 

4897 

4898 

4899 

4900 

4901 

4902 

4903 

4904 

4905 
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4906 




* 




4906 

4907 




« 


•EXCHANGE LINKS* 

4907 

4908 




• 




4906 

4909 




• 


CL SUBA 

IS INTERCHANGED WITH CL SUBF 

4909 

4910 

10624 

0 

000000 

ELQ0 

DAC 

• • 


4910 

4911 

10625 

0 

10 02672 


JST 

ST XA 


4911 

4912 

10626 

1 

02 15400 


IDA 

DP * 1 


4912 

4913 

10627 

0 

04 10647 


STA 

EL90 

CL (F ) ■« CL (A) 

4913 

4914 

10630 

0 

02 00664 


LDA 

F 


4914 

4915 

10631 

0 

04 00000 


STA 

0 


4915 

4916 

10632 

0 

10 10636 


JST 

EL40 


4916 

4917 

10633 

0 

10 02672 


JST 

STXA 


4917 

4918 

10634 

0 

10 10636 


JST 

EL40 


4918 

4919 

10635 

-0 

01 10624 


JMP* 

ELOO 


4919 

4920 

10636 

0 

000000 

EL40 

DAC 

• • 


4920 

4921 

10637 

1 

02 15400 


LDA 

DP* 1 


4921 

4922 

10640 

0 

13 10647 


IMA 

EL9Q 


4922 

4923 

10641 

0 

03 00735 


ANA 

K118 


4923 

4924 

10642 

1 

13 15400 


IMA 

DP f 1 


4924 

4925 

10643 

0 

03 00736 


ANA 

K119 


4925 

4926 

10644 

1 

06 15400 


ADD 

DP* 1 


4926 

4927 

10645 

1 

04 15400 


STA 

DP#1 


4927 

4928 

10646 

-0 

01 10636 


JMP* 

EL4Q 


4928 

4929 

10647 

0 

00 00000 

EL9Q 

PZE 

0 


4929 

4930 




• 




4930 

4931 




• 




4931 

4932 




# 




4932 

4933 




• 


*NON 

COMMON TEST* 

4933 

4934 




• 




4934 

4935 

10650 

0 

000000 

NMQO 

DAC 

• • 

NON-COMMON TEST 

4935 

4936 

10651 

0 

02 00631 


LDA 

AT 


4936 

4937 

10652 

0 

07 00722 


SUB 

K 10 4 


4937 

4938 

10653 

10 

0040 


SZE 



4938 

4939 

10654 

-0 

01 10650 


JMP* 

NMQQ 


4939 

4940 

10655 

0 

10 03116 


JST 

EROO 


4 94 0 

4yTi 

1U6~5& 

141 III 


BCI 

1 ,CR 

ILLEGAL COMMON REFERENCE 

4941 

4942 




* 




4942 
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4943 



• 


4944 



« 


4945 



# 


4946 



* 


4947 

10657 

0 000000 

NDOO 

DAC 

4948 

10660 

0 02 00631 


LDA 

4949 

10661 

0 07 00723 


SUB 

4950 

10662 

100040 


SZE 

4951 

10663 

0 01 10667 


UMP 

4952 

10664 

0 10 03116 


JST 

4953 

10665 

142301 


BCI 

4954 

10666 

-0 01 10657 


JMP* 

4955 

10667 

0 10 02617 

ND10 

JST 

4956 

10670 

-0 01 10657 


JMP* 

4957 



« 


4958 



« 


4959 



• 


4960 



• 


4961 



• 


4962 

10671 

0 00 00000 

SCTO 

PZE 

4963 

10672 

0 000000 

SCOO 

DAC 

4964 

10673 

0 04 10671 


STA 

4965 

10674 

140040 


CRA 

4966 

10675 

0 04 00572 


STA 

4967 

10676 

0 04 00605 


STA 

4968 

10677 

0 04 00606 


STA 

4969 

10700 

0 02 00702 


LDA 

4970 

10701 

0 10 02547 


JST 

4971 

10702 

0 02 00660 

SC10 

LDA 

4972 

10703 

101400 


SMI 

4973 

10704 

0 01 10710 


JMP 

4974 

10705 

0 10 02525 


JST 

4975 

10706 

100040 


SZE 

4976 

10707 

0 01 10745 


JMP 

4977 

10710 

0 10 02404 

SC15 

JST 

4978 

10711 

0 02 10671 


LDA 

4979 

10712 

100040 


SZE 


•NON DUMMY OR SUBPRO TEST# 


*• 

AT TEST 

K105 

ND10 

EROO 

ILLEGAL USE OF A 

NDOO 

NSOO 

NDOO 


•INPUT SUBSCRIPT* 


0 


*• 


SCTO 

TO * (A) 

NS 


S2 

NS « S2 « S3 » 0 

S3 


K17 

(-TEST 

TSOO 


EBAR 


SC15 

EBAR , GR, 0 

XNOO 

examine next char 

SC70 

IF (A) NON ZERO t 

IGOO 

go ro sc7o 

SCTO 

INPUT INTEGER 


4943 

4944 

4945 

4946 

4947 

4948 

4949 

4950 

4951 

4952 

DUMMY ARGUMENT 4953 

4954 

4955 

4956 

4957 

4958 

4959 

4960 

4961 

4962 

4963 

4964 

4965 

4966 

4967 

4968 

4969 

4970 

4971 

4972 

4973 

4974 

4975 

4976 

4977 
4976 
4979 
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4980 

10713 

100400 


SPL 


4981 

10714 

0 01 10720 


JMP 

SC60 

4982 

10715 

0 02 01475 


LDA 

ID 

4983 

10716 

0 07 00717 


SUB 

K101 

4984 

10717 

0 01 10722 


JMP 

SC30 

4985 

10720 

0 10 03241 

SC60 

JST 

ASOO 

4986 

10721 

0 02 00040 

SC20 

LDA 

A 

4987 

10722 

000201 

SC30 

IAB 


4988 

10723 

0 02 10757 


LDA 

SC9Q 

4989 

10724 

0 06 00572 


ADD 

NS 

4990 

10725 

0 04 10760 


STA 

SC91 

4991 

10726 

000201 


IAS 


4992 

10727 

-0 04 10760 


STA# 

SC91 

4993 

10730 

0 02 00572 


LDA 

NS 

4994 

10731 

141206 


AOA 


4995 

10732 

0 04 00572 


STA 

NS 

4996 

10733 

0 07 00721 


SUB 

K103 

4997 

10734 

100040 


SZE 


4998 

10735 

0 01 1074U 


JMP 

SC50 

4999 

10736 

0 10 02555 

SC4Q 

JST 

IPOO 

5000 

10737 

-0 01 10672 


JMP# 

SCOO 

5001 

10740 

0 02 00607 

SC50 

LDA 

TC 

5002 

10741 

0 07 00752 


sue 

K134 

5003 

10742 

100040 


SZE 


5004 

10743 

0 01 10736 


JMP 

SC40 

5005 

10744 

0 01 10702 


JMP 

SC10 

5006 

10745 

0 10 02437 

SC70 

JST 

I R00 

5007 

10746 

0 02 10671 


LDA 

SCTO 

5000 

10747 

101040 


SNZ 


5009 

10750 

0 01 10721 


JMP 

SC20 

5010 

10751 

0 02 00631 


LDA 

AT 

5011 

10752 

0 07 00723 


SUB 

K105 

5012 

10753 

101040 


SNZ 


5013 

10754 

0 01 10721 


JMP 

SC20 

5014 

10755 

0 10 03116 


JST 

EROO 

5015 

10756 

153304 


BCI 

1 # VD 

5016 

10757 

0 000604 

SC90 

DAC 

SI 
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4960 

4981 


4982 

4983 

4984 

ASSIGN ITEM 4985 

S <NS#1> * A 4986 

4987 

4988 

4989 

4990 

S ( NS+1 2 * A 4991 

4992 

4993 

4994 

NS MS M 4995 

4996 

4997 

MORE SUBSCRIPTS PERMITTED 4998 

) - I NPUT OPERATOR 4999 

RETURN 5000 

5001 

5002 

5003 

TERMINATOR NOT A COMMA 5004 

GO TO SC10 5005 

INPUT INT VARIABLE 5006 

CHECK FOR NON-DUMMY 5007 

VARIABLE DIMENSIONS 5008 


5009 

5010 
6 0 1 1 

5012 

5013 

5014 

ILLEGAL SYMBOLIC SUBSCRIPT 5q15 

5 U 1 6 
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5017 

10760 

0 000000 

SC91 

DAC 

*« 


5018 



• 




5019 



• 




5020 



* 




5021 



* 


•INPUT LIST 

ELEMENT# 

5022 



• 




5023 



• 


IF THE ITEM IS 

AN ARRAY, PROCESS THE SUB 

5024 

10761 

0 000000 

1 L 0 0 

DAC 

• • 


5025 

10762 

0 10 02373 


JST 

naoo 

INPUT NAME 

5026 

10763 

0 02 00631 


LDA 

AT 


5027 

10764 

0 07 00723 


SUB 

K105 

NON-DUMMY TEST 

5028 

10765 

100040 


SZE 



5029 

10766 

0 01 10771 


JMP 

*♦3 


5030 

10767 

0 10 03116 


JST 

EROQ 

usage error 

5031 

10770 

142304 


BCJ 

1,DD 

DUMMY ITEM IN AN EQUIV 

5032 

10771 

0 02 00655 


UDA 

IU 

IF IU NOT ARR, 

5033 

10772 

0 07 00721 


SUB 

K103 


5034 

10773 

100040 


SZE 



5035 

10774 

0 01 11037 


JMP 

I L 3 0 

GO TO I L 3 0 

5036 

10775 

0 02 00721 


LDA 

K103 


5037 

10776 

0 10 10672 


JST 

SCOO 

INPUT SUBSCRIPTS 

5038 

10777 

0 10 03656 


JST 

FAOO 

FETCH ASSIGNS 

5039 

11000 

0 02 00571 


LDA 

ND 

IF ND « NS 

5040 

11001 

0 07 00572 


SUB 

NS 


5041 

11002 

100040 


SZE 


SI « D* (SI ♦ Dl* (S2* 

5042 

11003 

0 01 11022 


JMP 

IL1Q 

ELSE, GO TO IL1Q 

5043 

11004 

0 02 00606 


LDA 

S3 


5044 

11005 

000201 


IAB 



5045 

11006 

0 02 00635 


LDA 

D2 


5046 

11007 

0 10 02703 


JST 

I MOO 


5047 

11010 

0 06 00605 


ADD 

S2 


5048 

11011 

000201 


IAB 



5049 

11012 

0 02 00634 


LDA 

D1 


5050 

11013 

0 10 02703 


JST 

IMOO 


5051 

11014 

0 06 00604 


ADD 

SI 


5052 

11015 

000201 


IAB 



5053 

11016 

0 02 00633 


LDA 

DO 



KfcV. D 


P AGE 141 


5017 

5018 

5019 

5020 

5021 

5022 

5023 

5024 

5025 

5026 

5027 

5028 

5029 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5038 

5039 

5040 

5041 

5042 

5043 

5044 

5045 

5046 

5047 

5048 

5049 

5050 

5051 

5052 

5053 
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5054 

11017 

0 10 02703 


JST 

IMQQ 


5054 

5055 

11020 

0 04 00604 


STA 

SI 


5055 

5056 

11021 

-0 01 10761 


JMP* 

I LOO 

RETURN 

5056 

5057 

11022 

0 02 00572 

I L10 

LDA 

NS 

IF NS NOT 1 

5057 

5058 

11023 

0 07 00717 


SUB 

K101 


5058 

5059 

11024 

100040 


SZE 



5059 

5060 

11025 

0 01 11034 


JMP 

IL20 

GO TO IL2Q 

5060 

5061 

11026 

0 02 00604 


LDA 

SI 

ELSE i 20 

5061 

5062 

11027 

000201 


IAB 


SI * DQ*Sl 

5Q62 

5063 

11030 

0 02 00633 


LDA 

DO 


5063 

5064 

11031 

0 10 02703 


JST 

IM0Q 


5064 

5063 

11032 

0 04 00604 

I L 1 8 

STA 

SI 


5065 

5066 

11033 

-0 01 10761 


JMP* 

I LOO 

RETURN 

5066 

5067 

11034 

0 10 03li6 

1L20 

JST 

ER00 


5067 

5068 

11035 

147304 


BCI 

1 , ND 

WRONG NUMBER OF DIMENSIONS IN ARRAY ELEMENT 

5068 

5069 

11036 

-0 01 10761 


JMP* 

I LOO 

RETURN 

5069 

5070 

11037 

0 10 03642 

IL3Q 

JST 

TV00 

TAG VARIABLE 

5070 

5071 

11040 

140040 


CRA 


SI * 0 

50 71 

5072 

11041 

0 01 11032 


JMP 

I L 1 8 

RETURN 

5072 

5073 



• 




5073 

5074 



• 




5074 

5075 



* 




5075 

5076 



* 


•FUNCTION * 


5076 

5077 



• 


•SUBROUTINE* 


5077 

5078 



• 


••••*••••••• 


5078 

5079 



• 


IF LSTF IS ZERO 

, THE STATEMENT IS OUT OF ORDER 

5079 

5080 



• 


FUNCTIONS 

are checked to ensure arguments 

5080 

5081 

11042 

0 02 00717 

Ri 

LDA 

K101 


5081 

5082 

11043 

0 04 00046 


STA 

SFF 

SFF * 1 

5082 

5083 

11044 

0 02 00072 

R2 

LDA 

LSTF 


5083 

5084 

11045 

100040 


SZE 


IF LSTF * o 

5084 

5085 

11046 

0 01 11051 


JMP 

R2A 


5085 

5086 

11047 

0 10 03116 


JST 

ERQO 

illegal STATEMENT 

5086 

5087 

11050 

143323 


BCI 

1 # FS 

NOT FIRST STATEMENT IN SUBPROGRAM 

5087 

5088 

11051 

0 10 02373 

R2a 

JST 

NAUO 

INPUT NAME 

5088 

c z r\ an 
S V V 7 

A 4 n C O 

no > c 

a n n r\ r> n a o 

y uc v y u t y 


i rt * 

U UM 

k 

A 


Cn On 

y<joy 

5090 

11053 

0 04 00047 


STA 

SBF 

<* 

M 

CD 

V) 

5090 
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5091 

11054 

140040 


CRA 


AUDRsQ, S/C CODE *0 

5091 

5092 

11055 

0 10 14312 


JST 

ONQQ 

OUTPUT NAME BLOCK TO THE LUAUfcR 

5092 

5093 

11056 

0 02 00045 


IDA 

MFL 


5093 

5094 

11057 

100040 


SZE 



5094 

5095 

11060 

0 10 04026 


JST 

DM00 

DEFINE IM 

5095 

5096 

11061 

0 02 00607 


IDA 

TC 


5096 

5097 

11062 

0 07 00756 


SUB 

CRET 

IF TC NOT C/R 

5097 

5096 

11063 

100040 


SZE 



5098 

5099 

11064 

0 01 11072 


JMP 

R2C 

GO TO 

5099 

5100 

11065 

0 02 00046 


IDA 

SFF 

IF SFF « 0 

5100 

5101 

11066 

101040 


SNZ 



5101 

5102 

11067 

0 01 11076 


JMP 

R2D 

GO TO R2D 

5102 

5103 

11070 

0 10 03116 


JST 

EROO 

ERROR 

5103 

5104 

11071 

143301 


SCI 

1 * FA 

FUNCTION has NO ARGUMENTS 

5104 

5105 

11072 

140040 

R2C 

CRA 



5105 

5106 

11073 

0 04 00041 


STA 

I 

I * 0 

5106 

5107 

11074 

0 10 10525 


JST 

GEOO 

GENERATE SUBPROGRAM ENTRY 

5107 

5108 

11075 

0 01 04266 


JMP 

A1 

GO TO C/R TEST 

5108 

5109 

11076 

140040 

R2D 

CRA 



5109 

5110 

11077 

0 10 14127 


JST 

OAOO 

OUTPUT ABS 

5110 

5111 

11100 

0 01 04271 


JMP 

C6 

GO TO CONTINUE 

5111 

5112 



• 




5112 

5113 



• 




5113 

5114 



# 




5114 

5115 



• 


•INTEGER 

« 

5115 

5116 



• 


♦REAL 

• 

9116 

5117 



* 


•DOUBLE PRECISION# 

5117 

5118 



* 


•complex 

* 

5118 

5119 



• 


•LOGICAL 

* 

5119 

5120 



* 




5120 

5121 



• 


THE MODE FLAG 

(MFL) IS SET TO THE APPROPRIATE 

5121 

5122 



• 


value and 

ANY ARRAY INFO IS PROCESSED 

5122 

5123 

11101 

0 02 00717 

A3 

IDA 

K101 

INTEGER 

5123 

5124 

11102 

0 01 11112 


JMP 

A 7A 

TMFL * INT 

5124 

5125 

11103 

0 02 00720 

A4 

LDA 

K102 

REAL 

5125 

5126 

11104 

0 01 11112 


JMP 

A 7 A 

TMFL « REAL 

5126 

5127 

11105 

0 02 00724 

A5 

LDA 

K 1 0 6 

DOUBLE PRECISION 

5127 
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5128 

11106 

0 01 11112 


JMP 

A7 A 

TMFL * dbl 

5128 

5129 

11107 

0 02 00723 

A6 

IDA 

K105 

COMPLEX 

5129 

5130 

11110 

0 01 11112 


JMP 

A7A 

TMFL * CPX 

5130 

5131 

11111 

0 02 00721 

A7 

IDA 

K103 

LOGICAL 

5131 

5132 

11112 

0 04 00045 

A7 A 

STA 

MFL 

TMFL » LOG 

5132 

5133 

11113 

0 02 00072 


IDA 

LSTF 

IF LSTF « 0# GO TO A7B 

(2) 5133 

5134 

11114 

101040 


SNZ 



5134 

5135 

11115 

0 01 11140 


JMP 

A7B 

ELSE t 

5135 

5136 

11116 

0 02 00662 


LDA 

CC 

SAVE CC 

5136 

5137 

11117 

0 04 11144 


STA 

A790 


5137 

5138 

11120 

140040 


CRA 



5136 

5139 

11121 

0 04 00651 


STA 

ICSW 


5139 

5140 

11122 

0 10 01521 


JST 

DN00 

INPUT UNA 

5140 

5141 

11123 

0 02 11144 


LDA 

A790 

RESTORE CC 

5141 

5142 

11124 

0 04 00662 


STA 

CC 


5142 

5143 

11125 

0 04 00651 


STA 

ICSW 

ICSW = I PL 

5143 

5144 

11126 

0 02 00643 


LDA 

DFL 

IF DFL NOT * 0, GO TO 

A7B 5144 

5145 

11127 

100040 


SZE 



5145 

5146 

11130 

0 01 11140 


JMP 

A7B 


5146 

5147 

11131 

0 02 01475 


LDA 

TID 

IF ID « FUNCTI, 

5147 

5148 

11132 

0 07 11137 


SUB 

A7K 

GO TO A 9 

5148 

5149 

11133 

101040 


SNZ 


SKIP IF NOT ’FUNCTION* 

5149 

5150 

11134 

0 01 Q4602 


JMP 

A9 

FUNCTION PROCESSOR 

5150 

5151 

11135 

0 10 03116 

A7A5 

JST 

EROO 

CONSTRUCTION ERROR 

5151 

5152 

11136 

152306 


SCI 

l.TF 

♦TYPE* NOT FOLLOWED BY 

’FUNCTION* OR LIST 5152 

5153 

11137 

143325 

A7K 

8CI 

i,FU 

CONSTANT FOR ’FUNCTION 

» CHECK 5153 

5154 

11140 

0 10 02373 

A7B 

JST 

NAQQ 

INPUT NAME 

5154 

5155 

11141 

0 02 00045 


LDA 

MFL 


5155 

5156 

11142 

0 10 04026 


JST 

DMOO 

DEFINE IM 

5156 

5157 

11143 

0 01 11246 


JMP 

87 

GO TO INPUT DIMENSION 

5157 

5158 

11144 

0 00 00000 

A/90 

PZE 

0 


5158 

5159 



* 




5159 

5160 



• 




5160 

5161 



• 

m 

82 EXTERNAL 


5161 

5162 



• 


TAGS NAME AS SUBPROGRAM 

5162 

Rl A 1 

i 1 1 AK 
* * * T 

n * n n3i7 i 

V i, v w «* v f w 

W 6. 

ICT 

W 1 

kt a n n 

H 1+ V v 

CVTCOMAI ki auC 

t a i i'Tr^w} f* m n e 

C 4 4. * 

✓ i v w 

5164 

11146 

0 10 03465 


JST 

TGOO 

tag subprogram 

5164 
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5165 

11147 

0 01 02567 


JMP 

81 

GO TO , OR C/R TEST 

5165 

5166 



• 




5166 

5167 



• 




5167 

5168 



* 



»•••* 

5168 

5169 



• 


•DIMENSION 

• 

5169 

5170 



• 


•INPUT DIMENSION* 

5170 

5171 



• 



»•••• 

5171 

5172 



» 


PROCESS ARRAYS, 

PUT DIMENSION INFO IN SPECIAL 

5172 

5173 



• 


ARRAY POINTER ITEM 

5173 

5174 

11150 

0 00 00000 

B3T0 

PZE 

0 


5174 

5175 

11151 

0 00 00000 

B3T1 

PZE 

0 


5175 

5176 

11152 

0 00 00000 

B3T2 

PZE 

0 


5176 

5177 

11153 

0 00 00000 

B3T3 

PZE 

0 


5177 

5178 

11154 

0 10 02373 

B3 

JST 

NAOQ 


5178 

5179 

11155 

0 02 00631 

B3A 

IDA 

AT 

IF AT * DUM 

5179 

5180 

11156 

0 07 00723 


SUB 

K105 

(A) = 0 

5180 

5181 

11157 

100040 


SZE 


ELSE (A) * , LT , 0 

5181 

5182 

11160 

140500 


SSM 



5i82 

5183 

11161 

0 04 11150 

B3B 

STA 

B3T0 

TO = (A) 

5183 

5184 

11162 

0 02 00630 


LDA 

AF 


5184 

5185 

11163 

0 04 11153 


STA 

B3T3 

T3 * AF 

5185 

5186 

11164 

0 02 00040 


LDA 

A 


5186 

5187 

11165 

0 04 11151 


STA 

B3T1 

T1 * A 

5187 

5188 

11166 

0 02 00631 


LDA 

AT 

TEST FOR AT«DUMMY 

5188 

5189 

11167 

0 07 00723 


SUB 

K1Q5 

*5 

5189 

5190 

11170 

100040 


SZE 


SKIP NO-USAGE TEST IF DUMMY 

5190 

5191 

11171 

0 10 02603 


JST 

NUO 0 

NO USAGE TEST 

5191 

5192 

11172 

0 10 02672 


JST 

STX A 


5192 

5193 

11173 

1 02 15401 


LDA 

DP*1 , 1 

IU (A) a ARR 

5193 

5194 

11174 

0400 62 


LRL 

14 


5194 

5195 

11175 

0 02 00721 


LDA 

K103 


5195 

5196 

11176 

0410 62 


LLL 

14 


5196 

5197 

11177 

1 04 15401 


STA 

DP + 1,1 


5197 

5198 

11200 

0 02 11150 


LDA 

B3T0 

(A) s TO 

5198 

5199 

11201 

0 10 10672 


JST 

SCOO 

INPUT SUBSCRIPT 

5199 

5200 

11202 

0 02 00604 


LDA 

SI 


5200 

5201 

11203 

0 04 01475 


STA 

ID 


5201 
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5202 11204 

5203 11205 

5204 11206 

5205 11207 

5206 11210 

5207 11211 

5208 11212 

5209 11213 

5210 11214 

5211 11215 

5212 11216 

5213 11217 

5214 11220 

5215 11221 

5216 11222 

5217 11223 

5218 11224 

5219 11225 

5220 11226 

5221 11227 

5222 11230 

5223 11231 

5224 H232 

5225 11233 

5226 11234 

5227 11235 

5228 11236 

5229 11237 

5230 11240 

5231 11241 

5232 11242 

5233 11243 

5234 11244 

5235 11245 

5236 11246 

5237 11247 

5238 11250 


0 02 00605 
0 04 01476 
0 02 00606 
0 04 01477 
0 02 00572 
0400 60 
0 10 04252 

0 10 02672 

1 02 15401 
0412 76 

0 02 11153 
0414 76 
0402 76 

1 04 15401 
0 02 00040 
0 04 11152 
0 02 lli5l 
0 04 00040 

0 10 02672 

1 02 15401 
0412 76 

0 02 11152 
0414 76 
0402 76 

1 04 15401 

0 02 00607 83D 
0 07 00722 
100040 
0 01 02567 
0 02 04600 
0 07 11333 
100040 
0 01 02567 
0 01 11265 
0 02 00607 B7 
0 07 0070 2 
100040 


LDA 

S2 

STA 

ID + 1 

LDA 

S3 

STA 

I D + 2 

LDA 

NS 

LRL 

16 

JST 

AAOO 

JST 

STXA 

LDA 

DP+1 , 1 

LLR 

2 

LDA 

B3T3 

LGL 

2 

LRR 

c 

STA 

DP + 1 1 1 

LDA 

A 

STA 

B3T2 

LDA 

B3T1 

STA 

A 

JST 

STXA 

LDA 

DP+1 , 1 

llr 

2 

lda 

B3T2 

LGL 

2 

LRR 

2 

STA 

DP+1 » 1 

LDA 

TC 

SUB 

K104 

SZ6 

JMP 

B1 

LDA 

A9T2 

SUB 

B4Z9 

SZE 

JMP 

81 

JMP 

B40 

LDA 

TC 

SUB 

K17 

SZE 


HLACb SUBSCRIPTS IN ID 

UJ a 0, B = NS 
ASSIGN SPECIAL 


DEFINE QF TO GF (A ) 
T2 a A 
A * Tl 


DEFINE GF TO GF ( A ) 

IF TC NOT SLASH 

GO TO ,-C/R TEST 
IF SIDSW a CQmmON-4 

GO TO B4 (COHMON-O) 
ELSE, GO TO ,-C/R TEST 

IF TC s ( 


5202 

5203 

5204 

5205 

5206 

5207 

5208 

5209 

5210 

5211 

5212 

5213 

5214 

5215 

5216 

5217 
5210 

5219 

5220 

5221 

5222 

5223 

5224 

5225 

5226 

5227 

5228 

5229 

5230 

5231 

5232 

5233 

5234 

5235 

5236 

5237 

5238 
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5239 

11251 

0 01 11235 


JMP 

83D 


5240 

11252 

0 01 11155 


JMP 

B3A 


5241 



* 




5242 



* 




5243 



« 


*• 


5244 



• 


•COMMON# 

5245 



* 



5246 



• 


INPUT 

BLOCK NAMES AND LINK THEM WITH THE 

5247 



« 



FOLLOWING VAR/ARRAY NAMES, BLOCK NAMES 

5248 



• 



ARE LINKED TOGETHER THROUGH THEIR GENERAL FIELDS 

5249 

11253 

0 02 02731 

84 

IDA 

K81 


5250 

11254 

0 04 01475 


STA 

ID 


5251 

11255 

0 04 01476 


STA 

I D*1 


5252 

11256 

0 04 01477 


STA 

I D + 2 


5253 

11257 

0 02 11333 


LDA 

B4Z9 

SET SWITCH IN INPUT DIMENSION 

5254 

11260 

0 04 04600 


STA 

A9T2 


5255 

11261 

0 10 01256 


JST 

CHOO 

INPUT CHAR 

5256 

11262 

0 07 00674 


SUB 

K9 

IF NOT SLASH 

5257 

11263 

100040 


S2E 


GO TO 

5258 

11264 

0 01 11331 


JMP 

B4E 


5259 

11265 

0 10 U1521 

B40 

JST 

DNO 0 

INPUT DNA 

5260 

11266 

0 02 00722 


LDA 

K1Q4 

SLASH TEST 

5261 

11267 

0 10 02547 


JST 

TSOQ 


5262 

11270 

0400 40 

848 

LRt 

32 


5263 

11271 

0 02 00717 


LDA 

K101 

(A) > sob, (B) * 0 

5264 

11272 

0 10 04252 


JST 

A AO 0 

ASSIGN SPECIAL 

5265 

11273 

0 02 00056 


LDA 

CFL 


5266 

11274 

101040 


SNZ 



5267 

11275 

0 02 00040 


LDA 

A 


5268 

11276 

0 04 00056 


STA 

CFL 


5269 

11277 

0 02 00040 


LDA 

A 


5270 

11300 

0 04 00664 


STA 

F 


5271 

11301 

0 10 03770 


JST 

FLOQ 

FETCH LINK 

5272 

11302 

100040 


SZE 



5273 

11303 

0 01 11320 


JMP 

94D 


5274 

11304 

0 02 00056 


LDA 

CFL 


5275 

11305 

0 04 00000 


STA 

0 



5239 

5240 

5241 

5242 

5243 

5244 

5245 

5246 

5247 

5248 

5249 

5250 

5251 

5252 

5253 

5254 

5255 

5256 

5257 

5258 

5259 

5260 

5261 

5262 

5263 

5264 

5265 

5266 

5267 

5268 

5269 

5270 

5271 

5272 

5273 

5274 

5275 
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5276 

11306 

1 

02 

15401 


IDA 

DP+1 # 1 

GF(LFL) 

5276 

5277 

11307 

0 

13 

00040 


IMA 

A 


5277 

5278 

11310 

0 

04 

30000 


STA 

0 

INDEX a A 

5278 

5279 

11311 

0 

13 

00040 


IMA 

A 


5279 

5280 

11312 

1 

04 

15401 


STA 

DP*1,1 

GF(A) 3 GF(CFL) 

5280 

5201 

11313 

0 

02 

00056 


LDA 

cfl 


5281 

5202 

11314 

0 

04 

ooooo 


STA 

0 

INDEX s CFL 

5282 

5283 

11315 

0 

02 

00040 


LDA 

A 


5283 

5284 

11316 

0 

06 

00740 


ADD 

K122 

s ' 04000 Q 

5284 

5285 

11317 

1 

04 

15401 


STA 

DP*1,1 

GF(CFL) a A 

5285 

5286 

11320 

0 

10 

02373 

B4D 

JST 

NAOO 

INPUT NAME 

5286 

5287 

11321 

0 

10 

10657 


JST 

NDOO 

NON DUMMY/SU8PRQG TEST 

5287 

5288 

11322 

0 

10 

10650 


JST 

NMOO 

NON-COMMON TEST 

5288 

5289 

11323 

0 

10 

10624 


JST 

ELOO 

exchange links 

5269 

5290 

11324 

1 

02 

15400 


LDA 

DP # 1 


5290 

5291 

11325 

0 

03 

11334 


ANA 

B4F 

» * 107777 

5291 

5292 

11326 

0 

06 

00740 


ADD 

K122 

A t < A ) s COM (a * 040000 ) 

5292 

5293 

11327 

1 

04 

15400 


STA 

DP# 1 


5293 

5294 

11330 

0 

01 

11246 


JMP 

B7 


5294 

5295 

11331 

0 

10 

01251 

B4E 

JST 

UCOO 

UNINPUT COLUMN 

5295 

5296 

11332 

0 

01 

11270 


JMP 

B4B 


5296 

5297 

11333 

0 

011320 

B429 

DAC 

B4D 

GO TO INPUT DIMENSION 

5297 

5298 

11334 

107777 

B4F 

OCT 

107777 

EXTRACT MASK TO STRIP OFF AT FIELD 

5298 

5299 





• 




5299 

5300 





# 




5300 

5301 





• 




5301 

5302 





• 


•EQUIVALENCE* 


5302 

5303 





• 




5303 

5304 





• 


STORE EQUIV INFO 

IN THE DATA POOL FOR LATER 

5304 

5305 





# 


PROCESSING 

BY GROUP EQUIV (PART OF SPECS WRAPUP) 

5305 

5306 

11335 

0 

02 

00646 

B5 

LDA 

EO 

L'NEXT WORD IN EQUIVALENCE TABLE 

5306 

5307 

Id 3 3 ^ 

0 

04 

00041 


STA 

I 

I a L 

5307 

5308 

11337 

0 

07 

00717 


SUB 

K101 

(si) 

5308 

5309 

11340 

0 

04 

00646 


STA 

EO 

L = L-1 

5309 

5310 

11341 

0 

07 

00054 


SUB 

ABAR 


5310 

5311 

11342 

101400 


SMI 



5311 

5312 

11343 

0 

01 

11346 


JMP 

• ♦3 


5312 
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♦ C210-001 

-6601 

(FRTN) 

3C NO, 180463000 

REV, 

5313 

11344 

0 10 03116 


JST 

EROO 


DATA POOL FULL 


5314 

11345 

146717 


BCI 

1 # MQ 


MEMORY overflow 


5315 

11346 

0 10 02676 


JST 

STX I 


ESTABLISH I 


5316 

11347 

140040 


CRA 





5317 

11350 

1 04 15400 


STA 

DP# 1 


DP (I) » 0 


5318 

11351 

0 10 01256 

85B 

JST 

CHOO 




5319 

11352 

1 02 15400 


LDA 

DP # 1 


INPUT CHAR 


5320 

11353 

100040 


SZE 





5321 

11354 

0 01 11371 


JMP 

B5D 




5322 

11355 

0 02 00607 


IDA 

TC 


PUT IN first character 


5323 

11356 

0414 70 


LGL 

8 


PACK INTO DP (I) 


5324 

11357 

1 04 15400 

B5C 

STA 

DP# 1 




5325 

11360 

0 02 00607 


LDA 

TC 




5326 

11361 

0 07 00756 


SUB 

CRET 




5327 

11362 

101040 


SNZ 





5328 

11363 

0 01 04271 


JMP 

C6 


CHARACTER E C/R - EXIT 


5329 

11364 

1 02 15400 


LDA 

DP # 1 




5330 

11365 

0 03 00727 


ANA 

K100 




5331 

11366 

101040 


SNZ 





5332 

11367 

0 01 11351 


JMP 

B5B 


WORD NOT FULL 


5333 

11370 

0 01 11335 


JMP 

B5 


obtain NEW WORD 


5334 

11371 

0 02 00607 

B5D 

LDA 

TC 


PUT In SECOND CHARACTER 


5335 

11372 

1 05 15400 


ERA 

DP, 1 




5336 

11373 

0 01 11357 


JMP 

85C 




5337 



• 






5338 



* 






5339 



• 


• < 




534U 



• 


•RELATE COMMON 

ITEMS* 


5341 



• 


• i 




5342 



« 


ALL ITEMS LINKED 

TO A COMMON BLOCK ARE PROCESSED 

5343 



• 



AND THEIR INVERSE OFFSETS CALCULATED, 

THESE 

5344 



• 



WILL BE INVERTED LATER TO GIVE TRUE 


5345 



* 



POSITION IN 

THE BLOCK. 


5346 

11374 

0 00 00000 

C2T0 

PZE 

0 




5347 

11375 

0 02 00056 

C2 

LDA 

CFL 




5348 

11376 

0 04 00040 


STA 

A 


A * F * CFL 


5349 

11377 

140040 

C2A 

CRA 
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5313 

5314 

5315 

5316 

5317 

5318 

5319 

5320 

5321 

5322 

5323 

5324 

5325 

5326 

5327 

5328 

5329 

5330 

5331 

5332 

5333 

5334 

5335 

5336 

5337 

5338 

5339 
534U 

5341 

5342 

5343 

5344 

5345 

5346 

5347 
5346 
5349 
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5350 

11400 

0 04 11374 


STA 

C2T0 

TO * 0 

5351 

11401 

0 02 00040 


LDA 

A 


5352 

11402 

0 04 00664 


STA 

F 

F a A 

5353 

11403 

0 10 U3770 

C28 

JST 

FLOO 

FETCH LINK 

5354 

11404 

101040 


SNZ 



5355 

11405 

0 01 11413 


JMP 

C2D 


5356 

11406 

0 02 00633 


LDA 

DO 


5357 

11407 

0 06 11374 


ADD 

C2T0 

TO = TO ♦ DO 

5358 

11410 

0 04 11374 


STA 

C2T0 


5359 

11411 

0 10 04041 


JST 

DAO 0 

DEFINE ADDRESS FIELD 

5360 

11412 

0 01 11403 


JMP 

C2B 


5361 

11413 

0 10 03770 

C2D 

JST 

FLOO 

fetch LINK 

5362 

11414 

100040 


sze 



5363 

11415 

0 01 11424 


JMP 

C2F 


5364 

11416 

0 02 00630 


LDA 

AF 


5365 

11417 

0 04 00040 


STA 

A 

A * AF 

5366 

11420 

0 07 00056 


SUB 

CFL 


5367 

11421 

100040 


SZE 



5368 

11422 

0 01 11377 


JMP 

C2A 

AF » CFL# NO 

5369 

11423 

0 01 11442 


JMP 

C3 

YES - GROUP EQUIVALENCE 

5370 

11424 

0 02 11374 

C2F 

LDA 

C2T0 


5371 

11425 

0 07 00630 


SUB 

AF 

(A) * TO - AF 

5372 

11426 

0 10 04041 


JST 

DAOO 

DEFINE AF 

5373 

11427 

0 02 00655 


LDA 

IU 


5374 

11430 

100040 


SZE 



5375 

11431 

0 01 11413 


JMP 

C2D 


5376 

11432 

0 10 03642 


JST 

TVOO 

TAG VARIABLE 

5377 

11433 

0 01 11413 


JMP 

C2D 


5378 



• 




5379 



• 




5380 



* 




5361 



• 


♦GROUP 

EQUIVALENCE* 

5382 



* 


******* 


5383 



• 


THE EQUIV 

GROUPS ARE PROCESSED NOW, ANY COMMON 

53ti4 



# 


USAGE 

IS CHECKED TO SEE THAT THE ORIGIN 

53 85 



# 



5386 



* 


common. 


5350 

5351 

5352 

5353 

5354 

5355 

5356 

5357 

5358 

5359 

5360 

5361 

5362 

5363 

5364 

5365 

5366 

5367 

5368 

5369 

5370 

5371 

5372 

5373 

5374 

5375 

5376 

5377 

5378 

5379 

5380 

5381 

5382 

5383 

5384 

5385 

5386 
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5387 

11434 

0 

00 

OOOUO 

C3T0 

PZE 

0 

5388 

11435 

0 

00 

00000 

C3T1 

PZE 

0 

5389 

11436 

0 

00 

00000 

C3T2 

PZE 

0 

5390 

11437 

0 

00 

00000 

C3T3 

PZE 

0 

5391 

11440 

0 

00 

00000 

C3T4 

PZE 

0 

5392 

11441 

0 

00 

00000 

C3T5 

PZE 

0 

5393 


011434 

T0C3 

EQU 

C3T0 

5394 


011435 

T1C3 

EQU 

C3T1 

5395 


011436 

T2C3 

EQU 

C3T2 

5396 


011437 

T3C3 

EQU 

C3T3 

5397 


011440 

T4C3 

EQU 

C3T4 

5398 

11442 

0 

02 

00646 

C3 

LDA 

EO 

5399 

11443 

0 

04 

00660 


STA 

EBAR 

5400 

11444 

0 

02 

00113 

. 

LDA 

LO 

5401 

11445 

0 

04 

00644 


STA 

E 

5402 

11446 

0 

02 

00756 


LDA 

CRET 

5403 

11447 

0 

04 

00607 


STA 

TC 

5404 

11450 

0 

02 

00644 

C3B 

LDA 

E 

5405 

11451 

0 

04 

00645 


STA 

EP 

5406 

11452 

140040 


CRA 


5407 

11453 

0 

04 

00664 


STA 

F 

5408 

11454 

0 

02 

00720 


LDA 

K102 

5409 

11455 

0 

04 

11440 


STA 

C3T 4 

5410 

11456 

0 

10 

01256 


JST 

CHOO 

5411 

11457 

0 

02 

00702 


LDA 

K17 

5412 

11460 

0 

10 

02547 


JST 

TSOO 

5413 

11461 

0 

10 

10761 

C3D 

JST 

I LOO 

5414 

11462 

0 

10 

11751 


JST 

SAF 

5415 

11463 

0 

02 

00604 


LDA 

SI 

5416 

11464 

0 

07 

00630 


SU8 

AF 

5417 

11465 

0 

04 

11435 


STA 

C3T1 

5418 

11466 

0 

02 

00040 


LDA 

A 

5419 

11467 

0 

04 

11436 


STA 

C3T2 

5420 

11470 

0 

02 

00664 

C3F 

LDA 

F 

5421 

11471 

101040 


SNZ 


5422 

11472 

0 

01 

11607 


JMP 

C3P 

5423 

11473 

0 

02 

00664 

C3G 

LDA 

F 


3 C NO ( 100463000 REV. D PAGE 151 

5387 

5388 

5389 

5390 

5391 

5392 

5393 

5394 

5395 


5396 

5397 

5398 

E8AR=E<0) * End OF EQUIVALENCE TABLE 5399 

5400 

E*L(0) • START OF EQUIVALENCE TABLE 5401 

5402 

5403 

5404 

E-PWiME « E 5405 

5406 

I * 0 5407 

T 4 s STR*ABS 5408 

5409 

INPUT CHARACTER 5410 

54H 

(TEST 5412 

INPUT LIST ELEMENT 5413 

5414 

5415 

T 1 » Sl-AF 5416 

5417 

T2 * A 5418 

5419 

IF I * o » GO TO C3P 5420 

5421 

542? 

ELSE, 5423 
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5424 11474 

5425 11475 

5426 11476 

5427 11477 

5428 11500 

5429 11501 

5430 11502 

5431 11503 

5432 11504 

5433 11505 

5434 11506 

5435 11507 

5436 11510 

5437 11511 

5438 11512 

5439 11513 

5440 11514 

5441 11515 

5442 11516 

5443 11517 

5444 11520 

5445 11521 

5446 11522 

5447 11523 

5448 11524 

5449 11525 

5450 11526 

5451 11527 

5452 11530 

5453 11531 

5454 11532 

5455 11533 

5456 11534 

5457 

5458 11535 

5459 11536 

5460 11537 


0 07 00040 

SUB 

A 

101040 

SNZ 


0 01 11556 

JMP 

C3N 

0 02 00631 C3H 

LDA 

AT 

0 07 00722 

SUB 

K104 

101040 

SNZ 


0 01 11563 

JMP 

C30 

0 02 11435 C3H2 

LDA 

T1C3 

0 06 0063Q 

ADD 

AF 

0 04 11434 

STA 

T0C3 

0 02 1144Q 

LDA 

T4C3 

0 07 00722 

SUB 

K104 

100040 

SZE 


0 01 11521 

JMP 

C3K 

0 02 11437 

LDA 

T3C3 

0 07 11434 

SUB 

T0C3 

0 04 11434 

STA 

T0C3 

101400 

SMI 


0 01 11521 

JMP 

C3K 

0 10 03116 

JST 

ERQQ 

144703 

BCI 

1# IC 

0 02 11440 C3K 

LDA 

C3T4 

000201 

IAB 


0 02 11434 

LDA 

T0C3 

0415 76 

ALS 

2 

0404 76 

LGR 

2 

0 10 04214 

JST 

AFO 0 

0 10 03770 

JST 

FLOO 

0 10 11751 

JST 

SAF 

0 02 00040 

LDA 

A 

0 07 11436 

SUB 

C3T2 

100040 

SZE 


0 01 11473 

£ 

JMP 

C3G 

0 10 10624 

JST 

ELOO 

0 02 00607 C3M 

LDA 

TC 

0 07 00752 

SUB 

K 1 34 


IF A • I, GO TO C3N 


bibb, 

IF AT = COM, GO TO C30 


T { 0 ) a AF ♦ T ( 1 ) 

IF T<4) « o, GO TO C3K 


else, 

T C 0 ) = T C 3 > -T ( 0 ) 

IF TIOXO, 

IMPOSSIBLE COMMON EQUIVALENCE 
AT (A) a COM 


define af 
FETCH LINK 


IF A ,NE, T (2) i 
GO TO C3G < 5 ) 

EXCHANGE CL I A ) sa CL(I) 

EXCHANGE LINKS < cl < a > WITH CL(F) 

t r t r* _ 


5424 

5425 

5426 

5427 

5428 

5429 

5430 

5431 

5432 

5433 

5434 

5436 

5437 

5438 

5439 

5440 

5441 

5442 

5443 

5444 

5445 

5446 

5447 

5448 

5449 

5450 

5451 

5452 

5453 

5454 

5455 

5456 

5457 

5458 

5459 

5460 
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5461 

11540 

101040 


SNZ 


5462 

11541 

0 01 11461 


JMP 

C3D 

5463 

11542 

0 10 02555 


JST 

IPOO 

5464 

11543 

0 02 00607 


LDA 

TC 

5465 

11544 

0 07 00752 


SUB 

K134 

5466 

11545 

101040 


SNZ 


5467 

11546 

0 01 11450 


JMP 

C3B 

5468 

11547 

0 02 00607 


LDA 

TC 

5469 

11550 

0 07 00756 


SUB 

CRET 

5470 

11551 

101040 


SNZ 


5471 

11552 

0 01 11450 


JMP 

C3B 

5472 

11553 

0 10 03116 


JST 

EROO 

5473 

11554 

142703 


BCI 

1 f EC 

5474 

11555 

0 01 11450 


JMP 

C3B 

5475 

11556 

0 02 11435 

C3N 

LDA 

T1C3 

5476 

11557 

101040 


SNZ 


5477 

11560 

0 01 11536 


JMP 

C3M 

5478 

11561 

0 10 03116 

C3N5 

JST 

EROO 

5479 

11562 

144705 


BCI 

1# IE 

5480 

11563 

0 02 00604 

C30 

LDA 

SI 

5481 

11564 

0 06 00630 


ADD 

A F 

5482 

11565 

0 04 11437 


STA 

T3C3 

5483 

11566 

0 02 00722 


LDA 

K1 04 

5484 

11567 

0 11 11440 


CAS 

T4C3 

5485 

11570 

0 01 11572 


JMP 

*♦2 

5486 

11571 

0 01 11561 


JMP 

C3N5 

5487 

11572 

0 04 11440 


STA 

T4C3 

5488 

11573 

0 02 00664 


LDA 

F 

5489 

11574 

0 11 00040 


CAS 

A 

5490 

11575 

0 01 11577 


JMP 

*♦2 

5491 

11576 

0 01 11536 


JMP 

C3M 

5492 

11577 

0 04 00040 


STA 

A 

5493 

11600 

0 13 11436 


IMA 

C3T2 

5494 

11601 

0 04 00664 


STA 

F 

5495 

11602 

140040 


CRA 


5496 

11603 

0 04 11435 


STA 

C3T1 

5497 

11604 

0 10 03656 


JST 

FAOO 


30 NO, 18Q4630Q0 REV. D PAQc 153 


r 5461 

ELSE, 5462 

) - 1 NPUT OPERATOR 5463 

5464 

IF TC » , OR C/R 5465 

GO TO C3B (1) 5466 

5467 

5463 

5469 

5470 

ELSE, 547! 

5472 

EQUIVALENCE GROUP NOT FOLLOWED BY , OR CK $473 

5474 

IF T1 * 0, GO TO C3M 5475 

5476 

5477 

ERROR IMPOSSIBLE GROUP 5476 

IMPOSSIBLE EQUIVALENCE GROUPING 5479 


5400 

5481 

5482 

5483 

5484 

5485 

5486 

5487 

5488 


IF A » F, GO TO C3M (8) 5489 

5490 

ELSE, 549! 

A * I 549 2 

5493 

5494 

T1 * 0 5495 

5496 

FETCH ASSIGNS 5497 
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5498 

11605 

0 

10 

11751 


JST 

SAF 

5499 

11606 

0 

01 

11503 


JMP 

C3H2 

5500 

11607 

0 

02 

00040 

C3P 

LDA 

A 

5501 

11610 

0 

04 

00664 


STA 

F 

5502 

11611 

0 

01 

11477 


JMP 

C3H 

5503 





• 



5504 





# 



5505 





• 


• 

5506 





• 


# 

5507 





• 


• 

5508 





• 


NON- 

5509 





# 



5510 

11612 

0 

00 

ooouo 

C4T0 

PZE 

0 

5511 

11613 

0 

00 

00000 

C4T1 

PZE 

0 

5512 

11614 

0 

04 

00040 

C4B 

STA 

A 

5513 

11615 

0 

02 

00040 

C4C 

LDA 

A 

5514 

11616 

0 

06 

00723 


ADD 

K105 

5515 

11617 

0 

04 

00040 


STA 

A 

5516 

11620 

0 

04 

00664 


STA 

F 

5517 

11621 

0 

11 

00054 


CAS 

ABAR 

5518 

11622 

0 

01 

05173 


JMP 

NP35 

5519 

11623 

101000 


NOP 


5520 

11624 

0 

10 

03656 


JST 

FAO 0 

5521 

11625 

0 

02 

00631 


LDA 

AT 

5522 

11626 

0 

07 

00720 


SUB 

K102 

5523 

11627 

100040 


SZE 


5524 

11630 

0 

01 

11615 


JMP 

C4C 

5525 

11631 

0 

02 

00655 


LDA 

IU 

5526 

11632 

0 

07 

00720 


SUB 

K102 

5527 

11633 

100400 


SPL 


5528 

11634 

0 

01 

11615 


JMP 

C4C 

5529 

11635 

0 

02 

00573 


LDA 

NT 

5530 

11636 

100040 


SZE 


5531 

11637 

0 

01 

11615 


JMP 

C4C 

5532 

11640 

140040 

C4E 

CRA 


5533 

11641 

0 

04 

11612 


STA 

C4T0 

5534 

11642 

u 

07 

00730 


SUB 

Kill 


GO TO C3H2 


•ASSIGN SPECIFICATIONS# 


COMMON BLOCKS ARE OUTPUT (WITH SIZE), 


A * 0 

I a A s A +5 

RETURN TO FIRST NON-SPEC check (POINT l) 

ELSE# FETCH ASSIGN 

IF AT a STR-ABS 
IU*VAR, OR ARR, AND 

NT * 0 

GO TO C4E 

ELSE p GO TO C4C 


TD a 0 . T 1 3-mav 


5496 

5499 

5500 

5501 

5502 

5503 

5504 

5505 

5506 

5507 

5508 

5509 

5510 

5511 

5512 

5513 

5514 

5515 

5516 

5517 

5518 

5519 

5520 

5521 

5522 

5523 

5524 

5525 

5526 

5527 

5528 

5529 

5530 

5531 

5532 

5533 

5534 
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5535 

11643 

0 04 11613 


STA 

C4T1 


5535 

5536 

11644 

0 10 04005 


JST 

KTOO 

SET D ( 0 ) s NO, OF WORDS PfcR ITEM 

5536 

5537 

11645 

0 10 11751 

C4F 

JST 

SAF 


5537 

5538 

11646 

0 11 11612 


CAS 

C4T0 


5538 

5539 

11647 

0 04 11612 


STA 

C4T0 


5539 

5540 

11650 

101000 


NOP 



5540 

5541 

11651 

0 02 00633 


LDA 

DO 


5541 

5542 

11652 

0 07 00630 


SUB 

AF 

(A) * D ( 0 ) - AF 

5542 

5543 

11653 

0 11 11613 


CAS 

C4T1 


5543 

55 44 

11654 

0 04 11613 


STA 

C4T1 


5544 

5545 

11655 

1010 0 0 


NOP 



5545 

5546 

11656 

0 10 03770 


UST 

FLOO 

FETCH LINK ( (A)pA - F ) 

5546 

5547 

11657 

100040 


S2E 



5547 

5548 

11660 

0 01 11645 


JMP 

C4F 

GO TO C4F 

5548 

5549 

11661 

0 02 00060 


LDA 

RPL 


5549 

5550 

11662 

0 06 11612 


ADD 

C4T0 

RPL * RPL ♦ TO ♦ T1 

5550 

5551 

11663 

0 04 11612 


STA 

C4T0 


5551 

5552 

11664 

0 06 11613 


ADD 

C4T1 

TO * RPL-T1 

5552 

5553 

11665 

0 04 00060 


STA 

RPL 


5553 

5554 

11666 

0 10 11751 

C4J 

JST 

SAF 


5554 

5555 

11667 

0 02 00717 


LDA 

K101 


5555 

5556 

11670 

000201 


IAB 


(B) = REL 

5556 

5557 

11671 

0 02 11612 


LDA 

C4 TO 

(A) s TO-AF 

5557 

5558 

11672 

0 07 00630 


SUB 

AF 


5558 

5559 

11673 

0 10 04214 


JST 

AFOO 

DEFINE AFT 

5559 

5560 

11674 

0 10 03770 


JST 

FLOO 

FETCH LINK 

5560 

5561 

11675 

100040 


SZE 


IF (A) NOT ZERO, 

5561 

5562 

11676 

0 01 11666 


JMP 

C4I 

NOT END OF EQUIVALENCE GROUP 

5562 

5563 

11677 

0 01 11615 


JMP 

C4C 

CHECK NEXT ITEM IN ASSIGNMENT [ABLE 

5563 

5564 



* 




5564 

5565 

11700 

0 02 00667 

C4|.2 

LDA 

FLT1 

= LINK LOCATION TO COMMON BLOCK NAME 

5565 

5566 

11701 

0 04 11613 


STA 

C4T1 


5566 

5567 

11702 

0 02 00040 

C4L3 

LDA 

A 


5567 

5568 

11703 

0 04 00041 


STA 

I 

SAVfc A FOR LATER MODIFICATION 

5568 

5569 

11704 

0 10 03770 


JST 

FLOO 

FETCH LINK 

5569 

5570 

11705 

101040 


SNZ 



5570 

5571 

11706 

0 01 11733 


JMP 

C4M 

END OF COMMON GROUP 

5571 
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5572 

11707 

0 10 02676 


JST 

STX I 

5573 



« 



5574 

11710 

1 02 15400 


LDA 

DP. 1 

5575 



• 



5576 

11711 

0 03 00736 


ANA 

K119 

5577 

11712 

0 06 11613 


ADD 

C4T1 

5578 

11713 

1 04 15400 


STA 

DP# 1 

5579 

11714 

0 01 11702 


UMP 

C4L3 

5580 



• 



5581 

11715 

0 02 00056 

C4 

LDA 

CFL 

5582 

11716 

0 04 00664 


STA 

F~ 

5583 

11717 

0 04 00040 

C4L6 

STA 

A 

5584 

11720 

140040 


CRA 


5585 

11721 

0 04 11612 


STA 

C4T0 

5586 

11722 

0 10 03770 

C4L 

JST 

floo 

5587 

11723 

101040 


SNZ 


5588 

11724 

0 01 11700 


JMP 

C4L2 

5589 

11725 

0 02 00633 


LDA 

DO 

5590 

11726 

0 06 00630 


ADD 

AF 

5591 

11727 

0 11 11612 


CAS 

C4T0 

5592 

11730 

0 04 11612 


STA 

C4T0 

5593 

11731 

101000 


NOP 


5594 

11732 

0 01 11722 


UMP 

C4L 

5595 

11733 

0 02 00630 

C4M 

LDA 

AF 

5596 

11734 

0 04 00664 


STA 

F 

5597 

11735 

0 02 116i2 


LDA 

C4T0 

5598 

11736 

0 10 04041 


JST 

DAOO 

5599 




.OUTPUT COMMON BLOCK 

5600 

11737 

0 02 00630 


LDA 

AF 

5601 

11740 

0 03 00730 


ANA 

Kin 

5602 

11741 

0 06 00740 


ADD 

K122 

5603 

11742 

0 10 14312 


JST 

0N00 

5604 

11743 

0 02 00664 


LDA 

F 

5605 

11744 

0 07 00056 


SUB 

CFL 

5606 

11745 

101040 


SNZ 


56 U7 

11746 

n fH 44X44 


1 

^ nr 

C4B 

5608 

11747 

0 02 00664 


LDA 

F 


SET INDEX TO POINT TO CUHRtNT ITEM IN 
COMMON GROUP. 

SET CL FIELD TO POINT AT COMMON BLOCK 
NAME. 

(*•177000) 

(* LINK LOCATION OF COMMON BLOCK NAME) 
PROCESS NEXT ITEM IN COMMON BLOCK 
LOC, OF FIRST (BLANK) COMMON BLOCK 


FETCH LINK 

NO MORE ITEMS IN COMMON BLOCK 
ELSE. IF TO .LT. DQ*AF « 

TO * DO ♦ AF 


GO TO C4L 
I • AF 

(A) * TO 
DEFINE AF 

NAME AND SIZE TO LOADER 

LENGTH OF COMMON BLOCK 
*•37777 

*•40000 (S/C CODE * 1) 
OUTPUT NAME BLOCK TO LOADER 

IF 1 « CFL 


5572 

5573 

5574 

5575 

5576 

5577 

5578 

5579 

5580 

5581 

5582 

5583 

5584 

5585 

5586 

5587 

5588 

5589 

5590 

5591 

5592 

5593 

5594 

5595 

5596 

5597 

5598 

5599 

5600 

5601 

5602 

5603 

5604 

5605 

5606 

5607 

5608 
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5609 

11750 

0 01 

11717 


JMP 

C4L6 



5609 

5610 




« 





5610 

5611 

11751 

0 000000 

SAF 

DAC 

• » 



5611 

5612 

11752 

0 02 

00630 


LDA 

AF 



5612 

5613 

11753 

0414 

76 


LGL 

2 



5613 

5614 

11754 

0405 

76 


ARS 

2 



5614 

5615 

11755 

0 04 

00630 


STA 

AF 



5615 

5616 

11756 

-0 01 

11751 


JMP* 

SAF 



5616 

5617 




• 





5617 

5618 




• 





5618 

5619 




• 


• DATA 

statement processor* 


5619 

5620 




• 


• ••»• 



5620 

5621 




* 


PROCESS 

variable list .then OUTPUT literal items 

5621 

5622 




• 


TO 

APPROPRIATE LOCATIONS, MOPES 

must agree 

5622 

5623 

11757 

0 00 

00000 

TGW4 

PZE 

0 



5623 

5624 

11760 

0 00 

00000 

Tlw4 

PZE 

0 



5624 

5625 

11761 

0 00 

00000 

G 

PZE 

0 

LOWEST INDEX POINT 

IN LIST 

5625 

5626 

11762 

0 02 

00113 

W4 

LDA 

LO 



5626 

5627 

11763 

0 04 

00041 


STA 

I 

I *END OF DATA POOL 


5627 

5628 

11764 

0 10 

10761 

W4B 

JST 

I LOO 

INPUT LIST ELEMENT 


5628 

5629 

11765 

0 02 

00631 


LDA 

AT 

D (0) * * WDS/ I TEM 


5629 

5630 

11766 

0 07 

00720 


SUB 

K102 



5630 

5631 

11767 

101040 


SNZ 


IF AT * * STR-ABS * 


5631 

5632 

11770 

0 01 

12270 


JMP 

W4T 

GO TO 


5632 

5633 

11771 

0 02 

00041 


LDA 

I 



5633 

5634 

11772 

0 04 

00000 


STA 

0 



5634 

5635 

11773 

0 02 

00604 


LDA 

SI 

SI » DEFLECTION IF 

AN ARRAY 

5635 

5636 

11774 

0 06 

00630 


ADD 

AF 



5636 

5637 

11775 

1 04 

15400 


STA 

DP, 1 

DP ( E ) * AF ♦ SI 


5637 

5638 

11776 

0 02 

00040 

W4C 

LDA 

A 



5638 

5639 

11777 

1 04 

15377 


STA 

DP-1,1 

DP ( E-l ) * A 


5639 

5640 

12000 

0 02 

00041 


LDA 

I 



5640 

5641 

12001 

0 07 

00720 


SUB 

K102 



5641 

5642 

12002 

0 04 

00041 


STA 

I 



5642 

5643 

12003 

0 04 

11761 


STA 

G 



5643 

5644 

12004 

0 02 

00607 


LDA 

TC 

IF TC » , 


5644 

5645 

12005 

0 07 

00752 


SUB 

K134 



5645 
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5646 

12006 

101040 


SNZ 



5646 

5647 

12007 

0 01 11764 


JMP 

W4B 

GO TO W4B 

5647 

5648 

12010 

0 02 00722 


LDA 

K104 


5648 

5649 

12011 

0 10 02547 


JST 

TSOO 

TEST FOR SLASH TERMINATOR 

5649 

5650 

12012 

0 02 00060 


LDA 

RPL 


5650 

5651 

12013 

0 04 11760 


STA 

T1W4 


5651 

5652 

12014 

0 02 00113 


LDA 

LO 


5652 

5653 

12015 

0 04 00041 


STA 

I 

I* END OF DATA POOL 

5653 

5654 

12016 

140040 

W4E 

CRA 



5654 

5655 

12017 

0 04 00657 


STA 

KPHM 

K* « KBAR s 0 

5655 

5656 

12020 

0 04 00656 


STA 

KBAR 


5656 

5657 

12021 

0 10 01521 

H4F 

JST 

DNOQ 

INPUT, DNA 

5657 

5658 

12022 

0 02 00573 


LDA 

NT 


5656 

5659 

12023 

100040 


SZE 


IF NT « 0 

5659 

5660 

12024 

0 01 12035 


JMP 

W4G 

variable or array 

5660 

5661 

12025 

0 02 00607 


LDA 

TC 

LAST CHARACTER 

5661 

5662 

12026 

0 11 00702 


CAS 

K17 

■*250 ( ■( ) 

5662 

5663 

12027 

0 01 12031 


JMP 

• ♦2 


5663 

5664 

12030 

0 01 12033 


JMP 

• ♦3 

START OF COMPLEX CONSTANT 

5664 

5665 

12031 

0 10 03116 


JST 

ERQO 

ERROR 

5665 

5666 

12032 

141716 


BCI 

1# CN 

NON-CON DATA 

5666 

5667 

12033 

0 04 00050 


STA 

SXF 

SET SXF TO NON-ZERO 

5667 

5666 

12034 

0 01 12021 


JMP 

W4F 

FINISH INPUT OF COMPLEX CONSTANT 

5666 

5669 

12035 

0 02 00656 

W4G 

LDA 

KBAR 

MULTIPLY COUNT 

5669 

5670 

12036 

100040 


SZE 



5670 

5671 

12037 

0 01 12051 


JMP 

W4K 

GO TO W4K 

5671 

5672 

12040 

0 02 006U7 


LDA 

TC 

IF TC NOT # 

5672 

5673 

12041 

0 07 00721 


SUB 

K103 


5673 

5674 

12042 

100040 


SZE 



5674 

5675 

12043 

0 01 12054 


JMP 

W4L 


5675 

5676 

12044 

0 02 01475 


LDA 

ID 


5676 

5677 

12045 

0 07 00717 


SUB 

K10 1 


5677 

5678 

12046 

0 04 00656 


STA 

KBAR 

KBAR s ID-1 

5678 

5679 

12047 

0 10 02635 


JST 

ITOO 

INTEGER TEST 

5679 

5680 

12050 

0 01 12021 


JMP 

W4F 


5680 



V VC U U O J» i 

i . A u 

*■* r\ 

iTuA 

K PR ri 

IF K NO 7 ZfcRu 

5661 

5682 

12052 

100040 


SZE 



5682 
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5683 

12053 

0 

01 

12061 


JMP 

W4M 

GO TO w4M 

5683 

5684 

12054 

0 

02 

00656 

W4L 

LDA 

KBAR 


5684 

5685 

12055 

0415 

77 


AIS 

1 

K ’ « E-3# KBAR 

5685 

5686 

12056 

140407 


TCA 



5686 

5687 

12057 

0 

06 

00041 


ADD 

I 


5687 

5688 

12060 

0 

04 

00657 


STA 

KPRM 


5688 

5689 

12061 

0 

10 

02676 

W4M 

JST 

StX I 

SET INDEX s I 

5689 

5690 

12062 

1 

02 

15377 


LDA 

DP-1,1 


5690 

5691 

12063 

0 

04 

00040 


STA 

A 

A s DP (E-l) 

5691 

5692 

12064 

0 

02 

00653 


LDA 

IM 


5692 

5693 

12065 

0 

04 

11757 


STA 

TQW4 

TO a IM 

5693 

5694 

12066 

0 

10 

03656 


JST 

FAOO 


5694 

5695 

12067 

0 

02 

00061 


LDA 

BDF 

IF BDF NOT ZERO 

5695 

5696 

12070 

100040 


S2E 



5696 

5697 

12071 

0 

01 

12217 


JMP 

W4S 

GO TO W4S 

5697 

5698 

12072 

0 

10 

10650 


JST 

NMOO 

NON-COMMON TEST 

5698 

5699 

12073 

0 

10 

02676 

W4Q 

JST 

ST X I 

SET INDEX s I 

5699 

5700 

12074 

1 

02 

15400 


LDA 

DP , 1 


5700 

5701 

12075 

0 

04 

00060 


STA 

RPL 

RPL * AF 

5701 

5702 

12076 

0 

10 

14523 


JST 

FSOO 

FLUSH 

5702 

5703 

12077 

140040 


CRA 



5703 

5704 

12100 

0 

04 

00640 


STA 

DF 

DF s U 

5704 

5705 

12101 

0 

02 

01520 


LDA 

HOLF 

IS IT HOLLERITH DATA 

5705 

5706 

12102 

100040 


SZE 


NO 

5706 

5707 

12103 

0 

01 

12122 


JMP 

wHQW 

YES, GO TO OUTPUT IT 

5707 

5708 

12104 

0 

02 

00633 


LDA 

DO 


5708 

5709 

12105 

0 

04 

00000 


STA 

0 


5709 

5710 

12106 

1 

01 

12106 


JMP 

»»1 

SWITCH ON NUMBER OF WORDS TO OUTPUT 

5710 

5711 

12107 

0 

01 

12161 


JMP 

W405 


5711 

5712 

12110 

0 

01 

12151 


JMP 

W4Q3 


5712 

5713 

12111 

0 

01 

12155 


JMP 

W4Q4 


5713 

5714 

12112 

0 

02 

01477 


LDA 

TJD*2 


5714 

5715 

12113 

0 

10 

14127 


JST 

OAOO 


5715 

5716 

12114 

0 

02 

01476 


LDA 

T I U ♦ 1 


5716 

5717 

12115 

0 

10 

14127 


JST 

OAOO 


5717 

5718 

12116 

0 

02 

03641 


LDA 

TID8+2 


5718 

5719 

12117 

0 

10 

14127 


JST 

OAOO 


5719 
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5720 

12120 

0 02 

03640 


LDA 

T1DB+1 


5720 

5721 

12121 

0 01 

12162 


JMP 

W406 


5721 

5722 

12122 

0 02 

00633 

MHOW 

LDA 

DO 

( A ) »NO • OF WORDS PER ITEM 

5722 

5723 

12123 

0415 

77 


ALS 

1 

(A)=NO. OF CHARS, PER ITEM 

5723 

5724 

12124 

0 04 

00575 


STA 

NT ID 

nt i u»nq , of chars, to be output 

5724 

5725 

12125 

0 07 

01520 


SUB 

HOLF 


5725 

5726 

12126 

100400 


SPL 



5726 

5727 

12127 

0 01 

1217U 


JMP 

WERR 


5727 

5728 

12130 

0 02 

01475 


LDA 

ID 

FIRST WORD 

5728 

5729 

12131 

0 10 

12141 


JST 

WSNG 

OUTPUT IT 

5729 

5730 

1213 2 

0 02 

01476 


LDA 

I D#1 

2ND WORD 

5730 

5731 

12133 

0 10 

12141 


JST 

WSNG 

OUTPUT IT 

5731 

5732 

12134 

0 02 

01477 


LDA 

ID#2 

3RD WORD 

5732 

5733 

12135 

0 10 

12141 


JST 

WSNG 

OUTPUT IT 

5733 

5734 

12136 

0 02 

01500 


LDA 

I D#3 

4TH WORD 

5734 

5735 

12137 

0 10 

14127 


JST 

OAOO 

OUTPUT IT 

5735 

5736 

12140 

0 01 

12172 


JMP 

W420 

TO CHECK NEXT DATA 

5736 

5737 




• 




5737 

5738 

12141 

0 00 

ooooo 

WSNG 

PZE 

0 


5738 

5739 

12142 

0 10 

14127 


JST 

OAOO 

OUTPUT (A) 

5739 

5740 

12 143 

0 02 

00575 


LDA 

NT I D 

NO. OF CHARS, REMAINED TO BE OUTPUT 

5740 

5741 

12144 

0 07 

00720 


SUB 

K1Q2 


5741 

5742 

12145 

0 04 

00575 


STA 

Nt ID 

NT I D«NT I D-2 

5742 

5743 

12146 

101040 


SNZ 



5743 

5744 

12147 

0 01 

12172 


JMP 

W420 

ALL FINISHED, CHECK NEXT ITEM 

5744 

5745 

12150 

-0 01 

12141 


JMP# 

WSNG 

SOME HOLLERITH CHARS, REMAINED 

5745 

5746 

12151 

0 02 

01477 

W403 

LDA 

T I D ♦ 2 

REAL OUTPUT 

5746 

5747 

12152 

0 10 

14127 


JST 

OAOO 


5747 

5748 

12153 

0 02 

01476 


LDA 

T I D#1 


5748 

5749 

12154 

0 01 

12162 


JMP 

W406 


5749 

5750 

12155 

0 02 

01477 

W4Q4 

LDA 

T I D#2 

DOUBLE PRECISION OUTPUT 

5750 

5751 

12156 

0 10 

14127 


JST 

OAOO 


5751 

5752 

12157 

0 02 

01476 


LDA 

T ID#1 


3752 

5753 

12160 

0 10 

14127 


JST 

OAOO 


5753 

5754 

12161 

0 02 

01475 

W 405 

LDA 

TID 

INTEGER OUTPUT 

5754 

57 55 

i2i 62 

o iu 

i4i2 7 

w4 06 

JST 

OAOO 


57 55 

5756 

12163 

0 02 

11757 


LDA 

TQW4 


5 75 6 
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5757 

12164 

0 05 

00653 


ERA 

IM 

5758 

12165 

0 03 

00723 


ANA 

K105 

5759 

12166 

101040 


SNZ 


5760 

12167 

0 01 

12172 


JMP 

#♦3 

5761 




* 



5762 

12170 

0 10 

03116 

WERR 

JST 

ERQO 

5763 

12171 

142315 


BC I 

1, DM 

5764 

12172 

0 02 

00041 

W420 

LDA 

I 

5765 

12173 

0 07 

00720 


SUB 

K102 

5766 

12174 

0 04 

00041 


STA 

I 

5767 

12175 

0 11 

00657 


CAS 

KPRM 

5768 

12176 

101000 


NOP 


5769 

12177 

0 01 

12061 


JMP 

W4M 

5770 

12200 

0 07 

11761 


SUB 

G 

5771 

12201 

100040 


SZE 


5772 

12202 

0 01 

12214 


JMP 

W4R 

5773 

12203 

0 02 

00722 


LDA 

K104 

5774 

12204 

0 10 

02547 


JST 

TSOO 

5775 

12205 

0 02 

11760 


LDA 

T1W4 

5776 

12206 

0 04 

00060 


STA 

RPL 

5777 

12207 

0 10 

01256 


JST 

CHOO 

5778 

12210 

0 07 

00672 


SUB 

K5 

5779 

12211 

100040 


SZE 


5780 

12212 

0 01 

04266 


JMP 

A1 

5781 

12213 

0 01 

11762 


JMP 

W4 

5782 

12214 

0 02 

00752 

W4P 

LDA 

K134 

5783 

12215 

0 10 

02547 


JST 

TSOO 

5784 

12216 

0 01 

12016 


JMP 

W4E 

5785 

12217 

0 10 

14523 

W4 S 

JST 

FSOO 

5786 

12220 

0 02 

00630 


LDA 

AF 

5787 

12221 

0400 

62 


LRL 

14 

5788 

12222 

0 02 

00724 


LDA 

K106 

5789 

12223 

0414 

72 


LGL 

6 

5790 

12224 

0410 

72 


LLL 

6 

5791 

12225 

0 04 

14632 


STA 

OCI 

5792 

12226 

000201 


IAB 


5793 

12227 

0 03 

00733 


ANA 

K116 


TO BE OUTPUT, RETURN 

DATA AND DATA NAME MODE DO NOT AGREE 

I « 1-2 

MORE TO DO 
TEST FOR COMPLETE 


INPUT NEXT CHARACTER 
* f 254 (,) 

SKIP IF CHAR a COMMA 
CHECK FOR (CR) 

PROCESS NEXT DATA GROUP 


FLUSH BUFFER IF NECESSARY 
POSITION WITHIN COMMON BLOCK 

FORMAT BCD OUTPUT 


5757 

5758 
5739 

5760 

5761 

5762 

5763 

5764 

5765 

5766 

5767 

5768 

5769 

5770 

5771 

5772 

5773 

5774 

5775 

5776 

5777 

5778 

5779 

5780 

5781 

5782 

5783 

5784 
5783 

5706 

5707 

5788 

5789 

5790 

5791 

5792 

5793 
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5794 

12230 

0 04 14633 

STA 

0CI*1 



5795 

12231 

0 10 03770 

JST 

FL00 

FETCH LINK 


5796 

12232 

1 02 15404 

IDA 

DP*4 , 1 



5797 

12233 

140500 

SSM 




5798 

12234 

0416 77 

AIR 

1 



5799 

12235 

140500 

SSM 




5800 

12236 

0406 77 

ARR 

1 



5801 

12237 

0400 70 

IRL 

8 



5802 

12240 

0 05 14633 

ERA 

OCI + 1 



5803 

12241 

0 04 14633 

STA 

ocm 



5804 

12242 

1 02 15403 

LDA 

DP*3» 1 



5805 

12243 

000201 

IAB 




5806 

12244 

1 02 15404 

LDA 

DP*4,i 



5807 

12245 

0410 70 

LLL 

8 



5808 

12246 

0 04 14634 

STA 

OC 1*2 



5809 

12247 

1 02 15402 

LDA 

DP*2il 



5810 

12250 

000201 

IAB 




5811 

12251 

1 02 15403 

LDA 

DP+3* 1 



5812 

12252 

0410 70 

LLL 

8 



5813 

12253 

0 04 14635 

STA 

OC I *3 



5814 

12254 

1 02 15402 

LDA 

DP^2, 1 



5815 

12255 

0414 76 

lgl 

2 



5816 

12256 

0 06 00721 

ADD 

K103 



5817 

12257 

0414 72 

LGL 

6 



5818 

12260 

0 04 14636 

STA 

OC I *4 



5819 

12261 

0 02 00746 

LDA 

K128 



5820 

12262 

0 04 00602 

STA 

OCNT 



5821 

12263 

0 10 02676 

JST 

STXI 

I POINTS TO DATA TABLE 

5822 

12264 

1 02 15377 

LDA 

DP-1,1 

SET A TO VARIABLE 


5823 

12265 

0 04 00040 

STA 

A 



5824 

12266 

0 10 03656 

JST 

FA 00 



5825 

12267 

0 01 12073 

JMP 

W4Q 



5826 

12270 

0 02 00717 W4T 

LDA 

K101 

si <*REL) 


5827 

12271 

000201 

IAB 




5828 

12272 

0 02 00060 

LDA 

RPL 




1 / / / 

•% ^ A A 4 ' 1 4i A 

II I LI LJOI^l f 

i r* ▼ 
j O 1 

a rn n 
r w sj 

DEFINE aft C a T s r E L s 

A Fs R 

5830 

X £ C. f sj 

12274 

0 02 00041 

LDA 

I 

SET POINTER IN DATA 

POOL 


5794 

5795 

5796 

5797 
5796 
5799 
58Q0 

5801 

5802 

5803 

5804 

5805 

5806 

5807 

5808 

5809 

5810 

5811 

5812 

5813 

5814 

5815 

5816 

5817 

5818 

5819 

5820 

5821 

5822 

5823 

5824 

5825 

5826 

5827 

5828 

5829 

5830 
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5831 

12275 

0 

04 

00000 


STA 

0 

5632 

12276 

0 

02 

00060 


LDA 

RPL 

5833 

12277 

1 

04 

15400 


STA 

DP#1 

5834 

12300 

0 

06 

00633 


ADD 

DO 

5835 

12301 

0 

04 

00060 


STA 

RPL 

5836 

12302 

0 

01 

11776 


JMP 

W4C 

5837 





• 



5838 





• 



5839 







• 

5840 





* 


• 

5841 





* 


« 

5842 





• 


SET 

5843 

12303 

0 

02 

00072 

Ri 

LDA 

LSTF 

5844 

12304 

100040 


SZE 


5845 

12305 

0 

01 

12310 


JMP 

*♦3 

5846 

12306 

0 

10 

03116 


JST 

ERQO 

5847 

12307 

141314 


BCI 

i*bl 

5848 

12310 

0 

04 

Q0Q61 


STA 

BDF 

5849 

12311 

0 

10 

01256 


JST 

CHGG 

5850 

12312 

0 

01 

04266 


JMP 

A1 

5851 





• 



5852 





• 



5853 





• 



5854 





• 



5855 





• 



5856 





• 



5857 





• 



5850 





• 


• i 

5859 





• 


*■ 

5860 





• 



5861 





* 


SETS 

5862 

12313 

0 

10 

02525 

TRAC 

JST 

XNOO 

5863 

12314 

100040 


SZE 


5864 

12315 

0 

01 

12322 


JMP 

TRAD 

5865 

12316 

0 

10 

02443 


JST 

I SO 0 

5866 

12317 

0 

02 

00040 


LDA 

A 

5867 

12320 

0 

04 

00065 


STA 

TRF 


DP( i ) * RPl OF VARIABLE 


•BLOCK DATA SUBPROGRAM PROCESSOR* 


SET_8L0CK DATA FLAG AND OUTPUT FORCE LOAD CODE 

*0 IP FIRST STATEMENT IN THE SUBPROGRAM 


ERROR,,, NOT FIRST STATEMENT 
’BLOCK DATA’ NOT FIRST STATEMENT 
SET BLOCK DATA FLAG ON (NON-ZERO) 
INPUT NEXT CHARACTER 
CHECK FOR (CR) AND EXIT 


•TRACE STATEMENT PROCESSOR* 

SETS TRACE TAG ON VARIABLES OR SETS TRACE FLAG 

EXAMINE NEXT CHARACTER 
SKIP IF CHAR, WAS A DIGIT 
JUMP IF CHAR, WAS A LETTER 
INPUT STATEMENT NO, 

STATEMENT NO, POINTER 
SET TRACE FLAG ON 


5831 

*832 

5833 

5834 

5835 

5836 

5837 

5838 

5839 

5840 

5841 

5842 

5843 

5844 

5845 

5846 

5847 

5848 

5849 

5850 

5851 

5852 

5853 

5854 

5855 

5856 

5857 

5858 

5859 

5860 

5861 

5862 

5863 

5664 

5665 

5866 

5867 
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5868 

12321 

0 01 04266 


JMP 

A1 

TEST FOR <CR> AND EXIT 

5869 



• 




5870 

12322 

0 10 02373 

TRAD 

JST 

NAQ 0 

INPUT NAME 

5871 

12323 

0 10 02672 


JST 

STX A 

SET INDEX TO NAME ENTRY 

5872 

12324 

1 02 15404 


IDA 

DP*4 , 1 

T T ( A > TRACE TAG 

5873 

12325 

140024 


CHS 



5874 

12326 

1 04 15404 


STA 

DP*4 » 1 


5875 

12327 

0 01 02567 


JMP 

81 

(,) OR (OR) TEST 

5076 



• 



< RETURN TO TRAC IF < , ) ) 

5877 



* 




5878 



• 




5879 



• 




5880 



• 




5801 



• 


•OUTPUT 

OBJECT LINK* 

5882 



• 




5883 

12330 

0 000000 

OLQQ 

DAC 

• • 


5884 

12331 

0 10 12363 


JST 

CN00 

CALL NAME 

5885 

12332 

140040 


CRA 



5886 

12333 

0 04 Q0640 


STA 

DF 

DF » 0 

5887 

12334 

0 02 01475 


LDA 

ID 

(A) » IP 

5888 

12335 

0 10 14127 


JST 

OAOO 

OUTPUT *BS 

5889 



• 




5890 

12336 

-0 01 12330 


JMP# 

OLQQ 


5891 



• 




5892 



• 




5893 



• 


•OUTPUT 

I/O LINK* 

5894 

5895 



# 

» 


GENERATE I/O DRIVER LINKAGE CODE, NAME OF 

5896 





CALLED ROUTINE IS CHANGED IF UNIT DESIGNATOR 

5897 



• 


IS A 

CONSTANT, 

5898 

12337 

0 000000 

0100 

DAC 

• • 


5899 

12340 

0 10 02432 


JST 

IVOO 

INPUT INT VAR/CON 

5900 

12341 

0 02 00573 


LDA 

NT 


5901 

12342 

101040 


SNZ 


IF NT * 0 

5902 

12343 

0 01 12357 


JMP 

0120 

GO TU 0120 

5903 

12344 

0 02 01475 


LDA 

I u 

If i D C R 9 

5904 

12345 

0 07 00744 


SUB 

K126 

GO TO 0120 


5868 

5869 

5870 

5871 

5872 

5873 

5874 

5875 

5876 

5877 

5878 

5879 

5880 

5881 

5882 

5883 

5884 

5885 

5886 

5887 

5888 

5889 

5890 

5891 

5892 

5893 

5894 

5895 

5896 

5897 

5898 

5899 

5900 

5901 

5902 

O ft 7 
* * v v 

5 9 Q 4 
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5903 

12346 

101400 

SMI 


5906 

12347 

0 01 

12357 

JMP 

0120 

5907 




• 


5908 

12350 

0 02 

00571 

LDA 

NAMF *1 

5909 

12351 

0 03 

00733 

ANA 

K116 

5910 

12352 

0 06 

01475 

ADD 

ID 

5911 

12353 

0 06 

00715 

ADD 

K60 

5912 

12354 

0 04 

00571 

STA 

NAMF *1 

5913 

12355 

0 10 

12363 

0110 JST 

CNOO 

5914 

12356 

-0 01 

12337 

JMP* 

0100 

5915 

12357 

0400 

40 

0120 LRL 

32 

5916 

12360 

0 02 

13735 

LDA 

OM I 7 

5917 

12361 

0 10 

12467 

JST 

OBOO 

5918 

12362 

0 01 

12355 

JMP 

0110 

5919 




• 


5920 




• 


5921 




• 


5922 




• 

*CAl 

5923 




• 

***4 

5924 




• 

SET UP 

5925 

12363 

0 000000 

CNOO DAC 

** 

5926 

12364 

0 10 

14523 

JST 

FSO 0 

5927 

12365 

0 10 

14301 

JST 

PRSP 

5928 

12366 

0 02 

12432 

LDA 

K147 

5929 

12367 

0 04 

14632 

STA 

OCI 

5930 

12370 

0 02 

00571 

LDA 

NAMF*1 

5931 

12371 

0 04 

14713 

STA 

PRI+9 

5932 

12372 

000201 

I AB 


5933 

12373 

0 02 

00570 

LDA 

NAMF 

5934 

12374 

0 04 

14712 

STA 

PRI *8 

5935 

12375 

0400 

70 

LRL 

8 

5936 

12376 

0 04 

14633 

STA 

OCI *1 

5937 

12377 

0410 

60 

ILL 

16 

5938 

12400 

0 04 

14634 

STA 

OC I *2 

5939 

12401 

0 02 

00572 

LDA 

NAMF+2 

5940 

12402 

0 04 

14714 

STA 

PR I *10 

5941 

12403 

000201 

I AB 



NAME* 


NAME AND 


FORM FSRN OR FSWN 


*’260 (SP) 

CALL NAME 
RETURN 

OUTPUT OA 

(LOAD A (UNIT NO, ) ) 

FO ro 0110 


GENERATE CODE FOR CALLING IT, 
FLUSH 

SET PRINT BUFFER TO SPACES 
SET UP OCI FOR CALL 

OCI ■ NAMF 

ALSO TO PRINT BUFFER 


5905 

5906 

5907 

5908 

5909 

5910 

5911 

5912 

5913 

5914 

5915 

5916 

5917 

5918 

5919 

5920 

5921 

5922 

5923 

5924 

5925 

5926 

5927 

5928 

5929 

5930 
3931 

5932 

5933 

5934 
3935 

5936 

5937 

5938 

5939 

5940 

5941 



HONEYWELL 


COMPUTER CONTROL DiViSiON 


PROGRAM DOCUMENTATION 


• C21Q-0Q1-6601 (FKTN) 3C '^0,160463000 


RbV, D PAGE 166 


5942 

12404 

0 

02 

00571 


LDA 

NAMF *1 


5943 

12405 

0410 

70 


LLL 

8 


5944 

12406 

0 

04 

14635 


STA 

OCI+3 


5945 

12407 

0410 

60 


LLL 

16 


5946 

12410 

0 

04 

14636 


STA 

OC I +4 


5947 

12411 

0 

02 

00746 


LDA 

K128 


5948 

12412 

0 

04 

00602 


STA 

OCNT 


5949 

12413 

0 

02 

12433 


LDA 

CN90 


5950 

12414 

0 

04 

14707 


STA 

PR I *5 


5951 

12415 

0 

02 

12434 


LDA 

CN90*1 


5952 

12416 

0 

04 

14710 


STA 

PR I *6 


5953 

12417 

0 

02 

0Q060 


LDA 

RPL 


5954 

12420 

0 

10 

14150 


JST 

OR80 


5955 

12421 

0 

014702 


DAC 

PR I 


5956 

12422 

100010 


SR2 

*♦3 


5957 

12423 

0 

01 

12426 


JMP 


5958 

12424 

0 

10 

00000 


call 

F4SSYM 


5959 

12425 

0 

014702 


DAC 

PR I 


5960 

12426 

0 

12 

00060 


IRS 

RPL 


5961 

12427 

0 

10 

14301 


JST 

PRSP 


5962 

12430 

0 

10 

14523 


JST 

FSOO 


5963 

12431 

-0 

01 

12363 


JMP* 

CNOQ 


5964 

12432 

055000 

K147 

OCT 

55000 


5965 

12433 

141701 

CN9Q 

BCI 

2, CALL 



12434 

146314 





5966 





« 




5967 





• 


•OUTPUT 

PACK* 

5968 





• 




5969 





• 


OUTPUT THE 

PACK 

5970 

12435 

0 

00 

00000 

PKF 

PZE 

0 


5971 

12436 

0 

00 

ooooo 

TOOK 

PZE 

0 


5972 

12437 

0 

000000 

QKOQ 

DAC 

• • 


5973 

12440 

0 

11 

00756 


CAS 

CRET 


5974 

12441 

0 

01 

12443 


JMP 

#♦2 


5975 

12442 

0 

01 

12460 


JMP 

OK30 


5976 

12443 

0 

12 

12435 


IRS 

PKF 


5977 

12444 

0 

01 

12453 


JMP 

OK20 



= ’14 
OCNT 


INHIBIT SYHBOLIC OUTPUT 
OUTPUT SYMBOLIC LINE, 

RPL = RPL ♦ 1 

SET PRINT BUFFER TO SPACES 

FLUSH 

RETURN 


HQRD HHfcN IT 
PACK FLAG 


IS FULL, 


IF (A) * C/R 

GO TO OK30 
PKF = PKF ♦ 1 
IF NO n “ZERO, i 


,0 TO OK 2 0 


5942 

5943 

5944 

5945 

5946 

5947 

5948 

5949 

5950 

5951 

5952 

5953 

5954 

5955 

5956 

5957 

5958 

5959 

5960 

5961 

5962 

5963 

5964 

5965 

5966 

5967 

5968 

5969 

5970 

5971 

5972 

5974 

5975 

a m 

7V i C 

5977 
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5978 12445 

5979 12446 

5980 12447 

5981 12450 

5982 12451 

5983 12452 

5984 12453 

5985 12454 

5986 12455 

5987 12456 

5988 12457 

5989 12460 

5990 12461 

5991 12462 

5992 12463 

5993 12464 

5994 12465 

5995 

5996 

5997 

5998 

5999 

6000 
6001 
6002 

6003 

6004 12466 

6005 12467 

6006 12470 

6007 12471 

6008 12472 

6009 12473 

6010 12474 

6011 12475 

6012 12476 

6013 12477 

6014 12500 


0 06 12436 

OKIO 

ADD 

TOOK 

0400 60 


LRL 

16 

0 04 00640 


STA 

DF 

000201 


IAB 


0 10 14127 


JST 

OAQO 

•0 01 12437 


JMP* 

OKOO 

0414 70 

OK20 

LGL 

8 

0 04 12436 


STA 

TOOK 

0 02 00741 


LDA 

K123 

0 04 12435 


STA 

PKF 

0 01 12437 


JMP* 

OKOO 

0 02 12435 

0K30 

LDA 

PKF 

101040 


SNZ 


0 01 12437 


JMP* 

OKOO 

0 02 00673 


LDA 

K8 

0 04 12435 


STA 

PKF 

0 01 12445 


JMP 

OKIO 


(A) * ( A ) ♦ TO 

OUTPUT ABS 

PKF • • 1 

RETURN 
IF PKF * 0 

RETURN 

ELSE (A) 9 SPACE# 
GO TO OKIO 


0 00 00000 TlQB PZE 
0 000000 OBOO DAC 


0 04 00647 STA 
000201 I A 8 
0 04 12466 STA 
0 10 02672 JST 
101040 SNZ 
0 01 12535 JMP 
0 10 03656 JST 
0 02 00067 LDA 
100040 SZE 


•OUTPUT OA* 


GENERAL OUTPUT ROUTINE, MAKES CHECKS AGAINST 

the assignment table entry to process dummy 
EXTERNAL# RELATIVE, ABSOLUTE OR STRING' 
REFERENCES PROPERLY, 


FTOP 


F TOP s (A) 


T10B 


stxa 

ESTABLISH A 


IF A s 0 

0BQ8 

GO TO QBQ8 

FAOO 

FETCH ASSIGNS 

SOF 

SPECIAL OUTPUT FLAT 


597 8 

5979 

5980 

5981 

5982 

5983 

5984 

5985 

5986 

5987 

5988 

5989 

5990 

5991 

5992 

5993 

5994 

5995 

5996 

5997 

5998 

5999 

6000 
6001 
6002 

6003 

6004 

6005 

6006 

6007 

6008 

6009 

6010 
6011 
6012 

6013 

6014 




6015 

12501 

0 

01 12660 

JMP 

0B6Q 

6016 

12502 

0 

02 00630 

LDA 

AF 

6017 

12503 

Q 

04 12466 

STA 

T10B 

6018 

12504 

0 

02 00631 

LDA 

AT 

6019 

12505 

0 

07 00723 

SUB 

K105 

6020 

12506 

101040 

SNZ 


6021 

12507 

0 

01 12547 

JMP 

0815 

6022 

12510 

0 

02 00655 

LDA 

IU' 

6023 

12511 

0 

07 00717 

SUB 

K101 

6024 

12512 

101040 

SNZ 


6025 

12513 

0 

01 12652 

JMP 

0840 

6026 

12514 

0 

02 00631 

OB06 LDA 

AT 

6027 

12515 

0 

11 00722 

CAS 

K104 

6028 

12516 

0 

01 12520 

JMP 

• ♦2 

6029 

12517 

0 

01 12553 

JMP 

OB 20 

6030 

12520 

0 

11 00717 

CAS 

K101 

6031 

12521 

0 

01 12523 

JMP 

*♦2 

6032 

12522 

0 

01 12542 

JMP 

OBIO 

6033 

12523 

0 

02 00721 

LDA 

KlD3 

6034 

12524 

000201 

IAB 


6035 

12525 

0 

02 00060 

LDA 

RPL 

6036 

12526 

0 

10 04214 

JST 

AFOO 

6037 

12527 

0 

02 00631 

LDA 

AT 

6038 

12530 

0 

07 00721 

SUB 

K103 

6039 

12531 

101040 

SNZ 


6040 

12532 

0 

01 12542 

JMP 

OBIO 

6041 

12533 

140040 

CRA 


6042 

12534 

0 

04 00630 

STA 

AF 

6043 

12535 

0 

02 00720 

OB08 LDA 

Kl02 

6044 

12536 

0 

04 00640 

STA 

DF 

6045 

12537 

0 

02 00647 

LDA 

FTOP 

6046 

12540 

0 

10 14127 

JST 

OAOO 

6047 

12541 

*0 

01 12467 

JMP* 

0800 

6048 

12542 

0 

02 12466 

OBIO LDA 

T108 

6049 

12543 

0 

04 00630 

STA 

AF 

6050 

12544 

0 

02 00647 

LDA 

FTOP 

6051 

12545 

0 

10 13773 

JST 

OROQ 


SUBSCRIPT CONSTANT DEFLECTI ON 

TO = A F 

IF AT « »DUM* 

SO TO 0815 

IF IU * »SUB* 

GO TO QB40 

IF AT » * COM * 

SO TO 0820 

IF AT * * REL 1 
GO TO 0810 

DEFINE A F AND AT 
IF AT ■ ’STR-RE* 

GO TO 0B1Q 
AF a 0 

SET FLAG TO OUTPUT SYMBOLIC 

OUTPUT ABSOLUTE 
RETURN 


6015 

6016 

6017 

6018 

6019 

6020 
6021 
6022 

6023 

6024 

6025 

6026 

6027 

6028 

6029 

6030 

6031 

6032 

6033 

6034 

6035 

6036 

6037 

6038 

6039 

6040 

6041 

6042 

6043 

6044 

6045 

6046 

6047 

6048 

6049 

AnKn 

w V O'- v 

6051 


OUTPUT REl 
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6052 12546 *0 01 12467 

6053 12547 0 02 00647 

6054 12550 140024 

6055 12551 0 04 00647 

6056 12552 0 01 12542 

6057 12553 0 10 14523 

6058 12554 0 02 12466 

6059 12555 0400 62 

6060 12556 0 02 00647 

6061 12557 0404 66 

6062 12560 0 06 12673 

6063 12561 0410 72 

6064 12562 0 04 14632 

6065 12563 0410 70 

6066 12564 0 04 14633 

6067 12565 0 10 03007 

6068 12566 0 10 03770 

6069 12567 1 02 15402 

6070 12570 0 04 14717 

6071 12571 0412 70 ' 

6072 12572 0 04 14636 

6073 12573 0410 70 

6074 12574 1 02 15403 

6075 12575 0 04 14716 

6076 12576 0412 70 

6077 12577 0 04 14635 

6078 12600 0410 70 

6079 12601 1 02 15404 

6080 12602 0 03 0073Q 

6081 12603 0 11 12604 

6082 12604 020240 

6083 12605 0 05 00740 

6084 12606 0 05 00760 

6085 12607 0 04 14715 

6086 12610 0412 70 

6087 12611 0 04 14634 

6088 12612 0410 70 


• C210-Q01-66Q1 (FRTN) 


JMP* 

OBOO 

0B15 LDA 

FTOP 

CHS 


STA 

FTOP 

JMP 

OBlO 

0820 JST 

FSQO 

LDA 

T10B 

LRL 

14 

LDA 

FTOP 

LGR 

10 

ADD 

K150 

LLL 

6 

STA 

OCI 

LLL 

8 

STA 

OCI*l 

JST 

SAV 

JST 

FLOO 

LDA 

DP + 2,1 

STA 

Pftl*13 

LLR 

8 

STA 

OCI *4 

LLL 

8 

LDA 

DP + 3,1 

STA 

PRI *12 

LLR 

8 

STA 

OCI *3 

LLL 

8 

LDA 

DP*4,1 

ANA 

Kill 

CAS 

• ♦1 

OCT 

020240 

ERA 

K122 

ERA 

H81T 

STA 

PRM11 

LLR 

8 

STA 

OCI +2 

LLL 

6 


3C NO. 180463000 

RETURN 

reverse indirect bit 

GO TO OBlO 

OUTPUT COMMON REQUEST 
PACK ADDRESS INTO BLOCK 


SET COMMON NAME INTO PRINT 

SET COMMON NAME INTO PRINT 

■’037777 

look for blank common 

SET NAME into PRINT BUFFER 


U PAGE 169 


6052 

6053 

6054 
60 55 

6056 

6057 

6058 

6059 

6060 
6061 
6062 

6063 

6064 

6065 

6066 

6067 

6068 
6069 

BUFFER 6070 

6071 

6072 

6073 

6074 

BUFFER 6075 

6076 

6077 

6078 

6079 

6080 
6081 
6082 

6083 

6084 

6085 

6086 

6087 

6088 
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6089 

12613 

0 02 14633 

LDA 

0CI#1 


6090 

12614 

0410 70 

LLL 

8 


6091 

12615 

0 04 14633 

STA 

OCI+1 


6092 

12616 

0 02 00746 

LDA 

K128 

3*14 

6093 

12617 

0 04 00602 

STA 

OCNT 


6094 

12620 

0 10 03016 

JST 

RST 


6095 

12621 

0 02 00000 

LDA 

0 


6096 

12622 

0 04 00040 

STA 

A 

RESTOKE A TO POINT AT NAME 

6097 

12623 

0 02 00060 

LDA 

RPL 

SET RPL MINUS 

6098 

12624 

140500 

SSM 


TO DISABLE WORD OUTPUT 

6099 

12625 

0 04 00060 

STA 

RPL 


6100 

12626 

0 02 00647 

LDA 

FTQP 

OUTPUT WORD TO LIST 

6101 

12627 

0 10 13773 

JST 

OROO 

SYMBOLIC COMMAND 

6102 

12630 

0 02 00060 

LDA 

RPL 

RESTORE AND 

6103 

12631 

140100 

SSP 


INCREMENT PROGRAM 

6104 

12632 

141206 

AQA 


COUNTER FOR COMMON 

6105 

12633 

0 04 00060 

STA 

RPL 

OUTPUT 

6106 

12634 

0 10 14523 

JST 

FSQQ 

CLOSE OUT BLOCK 

6107 

12635 

-0 01 12467 

JMP# 

OBOO 

EX I T 

6108 

12636 

1 02 15404 

0830 LDA 

DP#4,1 


6109 

12637 

140500 

SSM 



6110 

12640 

0416 77 

alr 

1 


6111 

12641 

140500 

SSM 



6112 

12642 

0406 77 

ARR 

1 


6113 

12643 

0 04 00570 

STA 

NAMF 


6114 

12644 

1 02 15403 

LDA 

DP#3,1 


6115 

12645 

0 04 00571 

STA 

NAMF#1 


6116 

12646 

1 02 15402 

LDA 

DP*2#1 


6117 

12647 

0 04 00572 

STA 

NAMF+2 


6118 

12650 

0 10 12363 

JST 

CNOO 


6119 

12651 

-0 01 12467 

JMP* 

OBOO 


6120 

12652 

0 02 00631 

0840 LDA 

AT 


6121 

12653 

0 07 00720 

SUB 

Ki 02 


6122 

12654 

101040 

SNZ 



6123 

12655 

0 01 12636 

JMP 

0830 


6124 

12656 

0 01 12514 

JMP 

QBO 6 


6125 

12657 

140000 

OB50 OCT 

140000 



6089 

6090 

6091 

6092 

6093 

6094 
6099 

6096 

6097 

6098 

6099 

6100 
6101 
6102 

6103 

6104 

6105 

6106 

6107 

6108 

6109 

6110 
6111 
6112 

6113 

6114 

6115 

6116 

6117 

6118 

6119 

6120 
6121 
6122 
6123 
m 24 
6125 
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* C21Q*0Q1*66q1 ( FRTN ) 3C nQ,18q463ouq 


NfcV. D PAGb 1?1 


6126 

6127 12660 

6128 12661 

6129 12662 

6130 12663 

6131 12664 

6132 12663 

6133 12666 

6134 12667 

6135 12670 

6136 12671 

6137 12672 

6138 

6139 12673 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 12674 

6150 12675 

6151 12676 

6152 12677 

6153 12700 

6154 12701 

6155 12702 

6156 12703 

6157 12704 

6158 12705 

6159 12706 

6160 12707 

6161 12710 

6162 12711 




140040 

OB60 

CRA 


0 04 00067 


STA 

SOF 

0 02 00631 


LDA 

AT 

0 11 00723 


CAS 

K105 

0 01 12514 


JMP 

OB06 

0 01 12667 


UMP 

0861 

0 01 12514 


JMP 

0606 

0 02 12466 

0861 

LDA 

T10B 

0 04 00647 


STA 

F TOP 

140040 


CRA 


0 01 12536 

£ 

JMP 

0808+1 

000700 

K150 

OCT 

700 


KESfcT SPECIAL OUTPUT FLAG 
ADDRESS TYPE 
TEST FOR DUHMY 
PROCESS NORMALLY 

PROCESS NORMALLY 


•OUTPUT TRIADS# 


0 00 00000 TOOT PZE 
0 00 00000 T2QT PZE 
0 00 00000 T10T PZE 
0 00 00000 TJOT PZE 
0 000000 OTOO DAC 
0 10 03007 JST 
0 02 00113 LDA 
0 04 00041 STA 
140040 CRA 
0 04 12674 STA 
0 04 00652 STA 
0 04 12676 OT06 STA 
0 02 00041 OT10 LDA 
0 07 00721 SUB 


PROCESSES THE TRiAD TABLE, HANDLES FETCH 

GENERATION AND RELATIONAL OPERATOR CODE 
GENERATION, DRIVES OUTPUT ITEM, ASSIGNS 
AND OUTPUT TEMP STORES, 

0 

0 

0 

0 TEMP STORE FOR P 


SAV 

LO 

I I = LO 


TOOT 

TO s 0 

IFLG 


TlOT 

T 1 » I 

I 

K 1 0 3 

I * 1-3 


6126 

6127 

6128 

6129 

6130 

6131 

6132 

6133 

6134 

6135 

6136 

6137 
6136 

6139 

6140 

6141 

6142 

6143 

6144 

6145 

6146 

6147 

6148 

6149 

6150 

6151 

6152 

6153 

6154 

6155 

6156 

6157 

6158 

6159 

6160 
6161 
6162 
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* C210-Q01-6601 (FRTN) 3 C NO. 180463000 D HAGt 172 


6163 

12712 

0 

04 

00041 

STA 

I 

6164 

12713 

0 

04 

12675 

STA 

T20T 

6165 

12714 

0 

07 

00044 

SUB 

L 

6166 

12715 

100400 

SPL 


6167 

12716 

0 

01 

13121 

JMP 

OT60 

6168 

12717 

0 

10 

02676 

JST 

STXI 

6169 

12720 

1 

02 

15402 

LDA 

DP+2,1 

6170 

12721 

140100 

SSP 


6171 

12722 

0 

11 

00755 

CAS 

K139 

6172 

12723 

0 

01 

12725 

JMP 

• 42 

6173 

12724 

0 

01 

12710 

JMP 

OT10 

6174 

12725 

0 

11 

00754 

CAS 

K138 

6175 

12726 

0 

01 

12730 

JMP 

• ♦2 

6176 

12727 

0 

01 

12710 

JMP 

OT10 

6177 

12730 

0 

11 

13135 

CAS 

K142 

6178 

12731 

0 

01 

12733 

JMP 

• + 2 

6179 

12732 

0 

01 

13112 

JMP 

OT50 

6180 

12733 

0 

11 

13136 

CAS 

K143 

6181 

12734 

0 

01 

12736 

JMP 

*♦2 

6182 

12735 

0 

01 

13103 

JMP 

OT40 

6183 

12736 

0 

11 

I3i37 

CAS 

K151 

6184 

12737 

0 

01 

12741 

JMP 

• «2 

6185 

12740 

0 

01 

13074 

JMP 

0T35 

6186 

12741 

0 

04 

12677 

STA 

T30T 

6187 

12742 

1 

02 

15401 

LDA 

DP+1,1 

6188 

12743 

0 

04 

00040 

STA 

A 

6189 

12744 

0 

11 

12676 

CAS 

TIOT 

6190 

12745 

0 

01 

12747 

JMP 

•42 

6191 

12746 

0 

01 

13016 

JMP 

OT30 

6192 

12747 

0 

11 

00113 

CAS 

L0 

6193 

12750 

0 

01 

13023 

JMP 

0T16 

6194 

12751 

0 

01 

13125 

JMP 

0T99 

6195 

^2752 

0 

01 

13023 

JMP 

0T16 

6196 

12753 

0 

10 

02676 

0T18 JST 

STXI 

6197 

12754 

1 

02 

15400 

LDA 

DP 1 1 

6198 

12755 

0 

0 4 

r% n f% a n 

vgviy 

r t a 

O 1 #4 

A 

6199 

12756 

1 

02 

15402 

LDA 

DP*2.1 


U * I 

IF FINISHED# GO TO OT60 

CHECK P ( I ) 

X 

H 

1 

T 

Q 

SAVE P 
A s OKI) 

MAYBE SPECIAL LOAD FOR U») STATEMENT 

a s a; ( t ) 


6163 

6164 

6165 

6166 
6167 
6166 

6169 

6170 

6171 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 
6181 
6182 

6183 

6184 

6185 

6186 

6187 

6188 

6189 

6190 

6191 

6192 

6193 

6194 

6195 

6196 

6197 

6198 

6199 
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* C210-001-66Q1 ( FRTN) 3C No, 180463000 
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6200 

12757 

140100 

SSP 


6201 

12760 

0 10 13147 

JST 

OMOO 

6202 

12761 

0 10 02676 0T22 

JST 

STXI 

6203 

12762 

1 02 15402 

IDA 

DP+2,1 

6204 

12763 

101400 

SMI 


6205 

12764 

0 01 13014 

JMP 

0T28 

6206 

12765 

140040 

CRA 


6207 

12766 

0 04 00573 

STA 

NT 

6208 

12767 

0 02 00720 

IDA 

K102 

6209 

12770 

0 04 00655 

STA 

IU 

6210 

12771 

0 02 12674 

LDA 

TOOT 

6211 

12772 

0400 72 

LRL 

6 

6212 

12773 

0 02 00052 

LDA 

TCF 

6213 

12774 

0400 75 

LRL 

3 

6214 

12775 

0 02 00045 

LDA 

MFL 

6215 

12776 

0 04 00653 

STA 

IM 

6216 

12777 

0410 67 

LLL 

9 

6217 

13000 

0 10 14150 

JST 

OR80 

6218 

13001 

0 001475 

DAC 

ID 

6219 

13002 

0 02 13133 

LDA 

K77 

6220 

13003 

0 04 01475 

STA 

ID 

6221 

13004 

0 12 12674 

IRS 

TOOT 

6222 

13005 

0 10 03241 

JST 

ASO 0 

6223 

13006 

0 10 02676 

JST 

STXI 

6224 

13007 

0 02 00040 

LDA 

A 

6225 

13010 

1 04 15400 

STA 

DP, 1 

6226 

13011 

0 02 02702 

LDA 

K153 

6227 

13012 

140500 

SSM 


6228 

13013 

0 10 13147 

JST 

OMOO 

6229 

13014 

0 02 00041 OT28 

LDA 

I 

6230 

13015 

0 01 12707 

JMP 

OT06 

6231 

13016 

0 10 02672 OT30 

JST 

STXA 

6232 

13017 

1 02 15402 

LDA 

DP*2, 1 

6233 

13020 

140100 

SSP 


6234 

13021 

100040 

SZE 


6235 

13022 

0 01 13025 

JMP 

0T32 

6236 

13023 

0 02 13140 0T16 

LDA 

K152 


OUTPUT ITEM (PCI )»A * 02(1)) 

ASSIGN TEMP STOR 
NT « 0 

IU • VAR 

ID * 

TS-IM-TCF-T0 


TO » TO + 1 
ASSIGN ITEM 

02(1) * A 

SURPRESS TRACE OF TEMPORARY STORAGE 
OUTPUT ITEM (x,A) 

IF P (A) « 0 

generate fetch 


6200 

6201 

6202 

6203 

6204 

6205 

6206 

6207 

6208 

6209 

6210 
6211 
6212 

6213 

6214 

6215 

6216 
6217 
6219 

6219 

6220 
6221 
6222 

6223 

6224 

6225 

6226 
6227 
6226 

6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 
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6237 

13024 

0 

10 

13147 


JST 

OMOO 

OUTPUT ITEM 

6 23 7 

6238 

13025 

0 

02 

12677 

0T32 

IDA 

T30T 

CHECK FOR RELATIQNALS 

6238 

6239 

13026 

0 

07 

00743 


SUB 

K125 

3*10 

6239 

4*3 1 ft 

6240 

13027 

100400 


SPL 




6241 

13030 

0 

01 

12753 


JMP 

0T18 

NOT LOGICAL OPERATOR 

6241 

6242 

13031 

0 

07 

00724 


SUB 

K106 

= 6 

6242 

* O A t 

6243 

13032 

101400 


SMI 




6244 

13033 

0 

01 

12753 


JMP 

0T18 

NOT A LOGICAL OPERATOR 

6244 

6245 

13034 

0 

04 

ooooo 


STA 

0 

SET INDEX = -1 TO -6 

6245 

6246 

13035 

0 

02 

00721 


LDA 

K103 

«3 (LOG) 

6246 

6247 

13036 

0 

04 

00045 


STA 

MFL 

SET MODE TO LOGICAL 

6247 

6248 

13037 

140040 


CRA 



6248 

6249 

13040 

0 

04 

00040 


STA 

A 

SET FOR OCTAL ADDRESS 

6249 

6250 

13041 

1 

01 

13050 


JMP 

*♦7,1 

BRANCH TO OPERATOR PROCESSOR 

6250 

6251 

13042 

0 

01 

13072 


JMP 

0T3G 

» LT , 

6251 

6252 

13043 

0 

01 

13066 


JMP 

0T3E 

,LE. 

6252 

6253 

13044 

0 

01 

13037 


JMP 

OT3C 

• EQ, 

6253 

6254 

13045 

0 

01 

13055 


JMP 

0T3B 

, GE , 

6254 

6 255 

13046 

0 

01 

13053 


JMP 

0T3A 

,GT, 

6255 

/ n C A. 

6256 

13047 

0 

02 

13743 


LDA 

OMJ4 

, NE , *ALS 16 

6256 

6257 

13050 

0 

10 

14127 


JST 

OAOO 

OUTPUT ABSOLUTE 

6257 

6258 

13031 

0 

02 

13745 


LDA 

0MJ6 

sACA 

6258 

6259 

13052 

0 

01 

13064 


JMP 

0T3D 


6259 

6260 

13053 

0 

02 

13746 

0T3A 

LDA 

0MJ7 

* T C A 

626Q 

6261 

13054 

0 

01 

13071 


JMP 

0T3F 


6261 

6262 

13055 

0 

02 

13747 

OT3B 

LDA 

OMK1 

*CMA 

6262 

6263 

13056 

0 

01 

13071 


JMP 

0T3F 


6263 

Z n A i 

6264 

13057 

0 

02 

13743 

0T3C 

LDA 

0MJ4 

s ALS 16 

0204 

40 Aft 

6265 

13060 

0 

10 

14127 


JST 

OAOO 



6266 

13061 

0 

02 

13750 


LDA 

OMK2 

sSSC 

6266 

y M X 1 

6267 

13062 

0 

10 

14127 


JST 

OAOO 

OUTPUT ABSOLUTE 

6267 

6268 

13063 

0 

02 

13751 


LDA 

0MK3 

s AO A 

6268 

6269 

13064 

0 

10 

14127 

0T3D 

JST 

OAOO 

OUTPUT ABSOLUTE 

6269 

6270 

13065 

0 

01 

12761 


JMP 

0T22 


62 7 0 

6271 

13066 

0 

02 

13741 

0T3E 

LDA 

0MJ2 

= SN l 

6271 

6272 

13067 

0 

IQ 

1412 7 


JST 

a i n n 

UAUU 

m i 1 t U i 1 T ADC n 1 i i Y Li 

uvi ! wi 

□ / / / 

6273 

13070 

0 

02 

13752 


LDA 

QMK4 

* S SH 

6 273 
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6274 

13071 

0 

10 

14127 

0T3F 

JST 

6275 

13072 

0 

02 

13744 

OT3G 

LDA 

6276 

6277 

13073 

0 

01 

13064 

* 

JMP 

6278 

13074 

1 

02 

13401 

0T35 

LDA 

6279 

13075 

0 

04 

01475 


STA 

6280 

13076 

0 

10 

02722 


JST 

6281 

13077 

0 

02 

13134 


LDA 

6282 

13100 

0 

04 

00571 


STA 

6283 

13101 

0 

10 

12330 


JST 

6284 

13102 

0 

01 

12753 


JMP 

6285 

13103 

1 

02 

15400 

OT40 

LDA 

6286 

13104 

0 

06 

00661 


ADD 

6287 

13105 

0 

04 

00041 


STA 

6288 

13106 

0 

10 

06773 


JST 

6289 

13107 

0 

02 

12675 

0T45 

LDA 

6290 

13110 

0 

04 

00041 


STA 

6291 

13111 

0 

01 

13014 


JMP 

6292 

13112 

1 

02 

15400 

OT50 

LDA 

6293 

13113 

0 

06 

00661 


ADD 

6294 

13114 

0 

04 

00041 


STA 

6295 

13115 

0 

07 

00661 


SUB 

6296 

13116 

100040 


SZE 

6297 

13117 

0 

10 

06747 


JST 

6298 

13120 

0 

01 

13107 


JMP 

6299 

13121 

0 

10 

03016 

OT 60 

JST 

6300 

13122 

0 

02 

00113 


LDA 

6301 

13123 

0 

04 

00044 


STA 

6302 

6303 

13124 

-0 

01 

12700 

• 

JMP« 

6304 

13125 

0 

02 

12677 

0T99 

LDA 

6305 

13126 

0 

07 

02702 


SUB 

6306 

13127 

100040 


SZE 

6307 

13130 

0 

01 

13023 


JMP 

6308 

13131 

0 

04 

00045 


STA 

6309 

13132 

0 

01 

12753 


JMP 

6310 

13133 

152244 

K 7 7 

BCI 


OAOO 

OUTPUT ABSOLUTE 

0MJ5 

=LGH 15 

0T30 


DP*1,1 


ID 


NFOO 


K78 

NAMF a F JA« 

NAMFn 


OLOO 

OUTPUT OBJECT LINK 

OT18 

GO TO 0T18 

DP » 1 


DO 


I 

o 

Q 

♦ 

CM 

O 

u 

DQOO 

DO TERMINATION 

T20T 


I 

I * T 2 

0T28 


DP y 1 


DO 

I»02( I)*DO 

I 

IF I S DO 

DO 



GO TO QT45 

DSOO 

DO INITIALIZE 

0T45 

GO TO OT45 

RST 


LO 

L 

RESET TRIAD TABLE 

OTOO 


T30T 


K153 

CODE FOR « 

0T16 

NOT SPECIAL LOAD 

MFl 

SPECIAL LOAD, SET N 

OT10 

OUTPUT A STORE 

1 $ TS 

TS 


6274 

6275 

6276 

6277 

6278 

6279 

6280 
6281 
6282 

6283 

6284 

6285 

6286 

6287 

6288 

6289 

6290 

6291 

6292 

6293 

6294 

6295 

6296 

6297 

6298 

6299 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 
6306 

6309 

6310 



HON 


6311 13134 

6312 13135 

6313 13136 

6314 13137 

6315 13140 

6316 

6317 

6318 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 13141 

6328 13142 

6329 13143 

6330 13144 

6331 13145 

6332 13146 

6333 

6334 

6335 13147 

6336 13150 

6337 13151 

6338 13152 

6339 13153 

6340 13154 

6341 13155 

6342 13156 

6343 13157 

6344 13160 

6345 13161 

6346 13162 

6347 13163 
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140722 

K78 

BCI 

1 , AR 

000027 

K142 

OCT 

27 

000030 

K 1 4 3 

OCT 

30 

000032 

K151 

OCT 

32 

000031 

K 152 

• 

OCT 

31 

*4H 


•OUTPUT I TEM» 


DRIVES BASIC OUTPUT ROUTINES. HANDLES SPECIAL 
SUBSCRIPT PROCESSING, GENERATES NECESSARY 
MODE CONVERSION CALLS AND HANDLES MODE 
CHECKING, IN-LINE ARITHMETIC CODE IS 
GENERATED WHERE POSSIBLE, OTHERWISE CALLS 
TO ARITHMETIC routines ARE GENERATED, 


0 00 ooooo 

TOOM 

PZE 

0 


0 00 ooooo 

T10M 

PZE 

0 


0 00 ooooo 

T20M 

PZE 

0 


0 00 ooooo 

T8QM 

PZE 

0 


0 00 ooooo 

T90M 

PZE 

0 


0 oo ooooo 

txqm 

PZE 

0 



• ---« 


•--•-OUTPUT ITEM 


0 000000 

QMOQ 

DAC 

• • 

RETURN ADDR 

0 04 13144 


STA 

T80M 


1401Q0 


SSP 



0 04 13141 


STA 

TOOM 

R(Q)«(A)3*P* CODE 

0 11 00752 


CAS 

K134 


0 01 13156 


JMP 

#♦2 


0 01 13653 


JMP 

OMD1 


0 02 13146 


LDA 

TXOM 


0 11 00717 


CAS 

K101 


0 01 13655 


JMP 

OME1 


0 01 13660 


JMP 

0ME5 


140040 

OM 05 

CRA 



0 04 13142 


STA 

T10M 

T ( 1 ) 8 0 


6311 

6312 

6313 

6314 

6315 

6316 

6317 
6316 

6319 

6320 

6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6345 
63 46 
6347 
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6348 

13164 

0 04 

13145 


STA 

T90M 

6349 

13165 

0 02 

00040 


LDA 

A 

6350 

13166 

0 04 

13143 


STA 

T20M 

6351 

13167 

100040 


SZE 


6352 

13170 

0 01 

13173 


JMP 

OM07 

6353 

13171 

0 02 

00045 


LDA 

MFL 

6354 

13172 

0 01 

13205 


JMP 

0M13 

6355 

13173 

0 11 

00113 

0M07 

CAS 

LO 

6356 

13174 

0 01 

13176 


JMP 

• + 2 

6357 

13175 

0 01 

13770 


JMP 

OML1 

6358 

13176 

0 11 

00054 


CAS 

ABAR 

6359 

13177 

0 01 

13413 


JMP 

0M76 

6360 

13200 

0 01 

13201 


JMP 

*♦1 

6361 

13201 

0 10 

02672 

OHIO 

JST 

STXA 

6362 

13202 

1 02 

15400 


LDA 

DP, 1 

6363 

13203 

0405 

67 


ARS 

9 

6364 

13204 

0 03 

00725 


ANA 

K107 

6365 

13205 

0 04 

00653 

QM13 

STA 

IM 

6366 

13206 

0 02 

00045 

0M14 

LDA 

MFL 

6367 

13207 

0415 

70 


ALS 

8 

6368 

13210 

0 06 

00653 


ADD 

IM 

6369 

13211 

0 05 

13516 


ERA 

OM90 

6370 

13212 

0 04 

00571 


STA 

NAMF + 1 

6371 

13213 

0 02 

10030 


LDA 

K130 

6372 

13214 

0 04 

00000 


STA 

0 

6373 

13215 

0 02 

13141 


LDA 

TOOM 

6374 

13216 

1 11 

13333 


CAS 

0M5 0 #6 , 1 

6375 

13217 

0 01 

13221 


JMP 

#♦2 

6376 

13220 

-1 01 

13341 


JMP# 

0M52 + 6, 1 

6377 

13221 

0 12 

00QU0 


IRS 

0 

6378 

13222 

0 01 

13216 


JMP 

*•4 

6379 

13223 

0 02 

00045 


LDA 

MFL 

6380 

13224 

101040 


SNZ 


6381 

13225 

0 01 

13354 


JMP 

0M62 

6382 

13226 

0 11 

00653 


CAS 

IM 

6363 

13227 

0 01 

13231 


JMP 

*♦2 

6384 

13230 

0 01 

13526 


JMP 

0MA1 


T ( 9 ) * 0 
T ( 2 ) S A 


A , LE , ABAR, , . .WJTHlN TRIAD TABLE 

SET iNDEXsA 

SES I MsMODE OF ITEM 

SET MFL.lM AS DIGITS INTO NAMF 

ADD *Q»»Q» 

INDEX«-6 

CHECK FOR SPECIAL OPERATOR 
’1 

*P ’ « ' U 0 *, ’A »F f , OR ’E’ 

SPECIAL LIBRARY FIX FOR ( As ) 
CHECK FOR MODE MIXING 

ITEM MODE SAME AS CURRENT MODE 


6348 

6349 
6330 

6351 

6352 
6333 

6354 

6355 

6356 
6337 
6356 

6359 

6360 

6361 

6362 

6363 

6364 

6365 

6366 

6367 

6368 

6369 

6370 

6371 

6372 

6373 

6374 

6375 

6376 

6377 

6378 

6379 

6380 

6381 

6382 

6383 

6384 
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6385 

13231 

0 

02 

00721 

OM20 

LDA 

K103 




6385 

6386 

13232 

0 

10 

13313 


JST 

0M44 

CHECK MODE FOR LOG 



6366 

6367 

13233 

0 

02 

00720 


LDA 

K1Q2 

*2 (MODE CODE FOR REAL) 



6387 

6388 

13234 

0 

11 

00045 


CAS 

MFL 

mode of expression 



6386 

6389 

13235 

0 

01 

13237 


JMP 

• ♦2 




6389 

6390 

13236 

0 

01 

13244 


JNP 

0M26 

IF MODE«REALi ALLOW COMPLEX 

MODE 

mixing 

6390 

6391 

13237 

0 

11 

00653 


CAS 

IM 

MODE OF ITEM 



6391 

6392 

13240 

0 

01 

13242 


JMP 

• ♦2 




6392 

6393 

13241 

0 

01 

13244 


JMP 

0M26 

IF MODE#REAL» ALLOW COMPLEX 

MODE 

MIXING 

6393 

6394 

13242 

0 

02 

00723 


LDA 

K105 




6394 

6395 

13243 

0 

10 

13313 


JST 

0M44 

TEST FOR MODE* COMPLEX 



6395 

6396 

13244 

0 

02 

13141 

0M26 

LDA 

TOOM 

OPERATOR BEING PROCESSED 



6396 

6397 

13245 

0 

11 

02702 


CAS 

K153 




6397 

6398 

13246 

0 

01 

13250 


JMP 

• ♦2 




6396 

6399 

13247 

0 

01 

13274 


JMP 

0M36 

T<0)=**» (ALLOW INTEGER MODE) 


6399 

6400 

13250 

0 

02 

00717 


LDA 

K101 




6400 

6401 

13251 

0 

10 

13313 


JST 

0M44 

TEST FOR MODE»INTEGER 



6401 

6402 

13252 

0 

02 

00653 


LDA 

IM 




6402 

6403 

13253 

0 

11 

00045 


CAS 

MFL 




6403 

6404 

13254 

0 

01 

13276 


JMP 

0M38 

CONVERT MODE OF ACCUMULATOR 



6404 

6405 

13255 

0 

01 

13256 


JMP 

• ♦1 




6405 

6406 

13256 

0 

10 

02722 

0M3Q 

JST 

NFQQ 

SET LBUF+2 TO SPACES 



6406 

6407 

13 257 

0 

02 

13141 


LDA 

TOOM 




6407 

6408 

13260 

0 

04 

00000 


STA 

0 




6408 

6409 

13261 

1 

02 

05032 


LDA 

A9X4 # 1 

PICK-UP PRINT CODE FOR 

OPERATOR 

6409 

6410 

13262 

0405 

72 


ARS 

6 




6410 

6411 

13263 

0 

03 

00727 


ANA 

K100 

«» 37/ 



6411 

6412 

13264 

101040 


SNZ 





6412 

6413 

13265 

0 

01 

13323 


JMP 

0M46 

MODE MIXING ERROR 



6413 

6414 

13266 

0414 

70 


LGL 

8 




6414 

6415 

13267 

0 

05 

13517 


ERA 

0M91 

ADD * S * 



6415 

6416 

13270 

0 

04 

00570 


STA 

NAMF 




6416 

6417 

13271 

0 

02 

00752 


LDA 

K134 




6417 

6418 

13272 

0 

04 

13141 


STA 

TOOM 

T(U) = ? , » 



6416 

6419 

13273 

0 

01 

13303 


JMP 

OM40 




6419 

6420 





• 






64 2D 

6421 

13274 

0 

02 

U 0723 

OM36 

LDA 

K105 




6421 
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6422 

13275 

0 10 13313 


JST 

0M44 

6423 

13276 

0 02 00653 

0M38 

LDA 

IM' 

6424 

13277 

0 04 00045 


STA 

MFL 

6425 

13300 

0 10 02722 


JST 

NFOQ 

6426 

13301 

0 02 13520 


LDA 

0M92 

6427 

13302 

0 04 00570 


STA 

namf 

6428 

13303 

0 10 12363 

OM40 

JST 

CNOO 

6429 

13304 

0 02 00045 


LDA 

MFL 

6430 

13305 

0 04 00653 


STA 

IM 

6431 

13306 

0 02 00570 


LDA 

NAMF 

6432 

13307 

0 11 13524 


CAS 

0M96 

6433 

13310 

0 01 13206 


JMP 

0M14 

6434 

133U 

•0 01 13147 


JMP* 

OMOQ 

6435 

13312 

0 01 13206 


JMP 

0M14 

6436 



• 



6437 



*•••< 

— SUBROUTINE 

6438 

13313 

0 000000 

0M44 

DAC 

• • 

6439 

13314 

0 11 00653 


CAS 

IM 

6440 

13315 

0 01 13317 


JMP 

*♦2 

6441 

13316 

0 01 13323 


JMP 

0M46 

6442 

13317 

0 11 00045 


CAS 

MFL 

6443 

13320 

-0 01 13313 


JMP* 

0M44 

6444 

13321 

0 01 13323 


JMP 

0M46 

6445 

13322 

•0 01 13313 


JMP* 

0M44 

6446 

13323 

0 10 03116 

QM46 

JST 

EROO 

6447 

13324 

146715 


BCI 

If MM 

6448 



• 



6449 



# m m m * 

’-•SPECIAL * F 

6450 

13325 

000032 

OM50 

OCT 

32 

6451 

13326 

000017 


OCT 

17 

6452 

13327 

000000 


OCT 

00 

6453 

13330 

000022 


OCT 

22 

6454 

13331 

000031 


OCT 

31 

6455 

13332 

000020 


OCT 

20 

6456 

13333 

0 013611 

QM52 

DAC 

0MB3 

6457 

13334 

0 013611 


DAC 

0M83 

6458 

13335 

0 013611 


DAC 

0MB3 


CHECK FOR MQDE*COMPLEX 


SET LBUF*2 TO SPACES 
*C$» 

OUTPUT ,,, .CALL NAMF 

SET ITEM MODE TO CURRENT MODE 


OUTPUT ARGUMENT ADDRESS 

) CHECK FOR ILLEGAL IM OR MFL MODES, 
RETURN ADDR, 

CHECK FOR I MO ( a ) 

ERROR 

CHECK FOR MFL* ( A ) 

ERROR 

NON- RECOVERABLE ERROR,,,, 
MODE MIXING ERROR 

OPERATOR TABLE 
•O' 

• , * 

*Q» 

♦A’ 

i p ? 

♦e» 

( *Q’ ) 

(♦O’) 


6422 

6423 

6424 

6425 

6426 

6427 

6428 

6429 

6430 

6431 

6432 

6433 

6434 

6435 

6436 

6437 

6438 

6439 

6440 

6441 

6442 

6443 

6444 

6445 

6446 

6447 

6448 

6449 

6450 

6451 

6452 

6453 

6454 

6455 

6456 

6457 

6458 
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6459 

13336 

0 013341 


DAC 

0M56 

6460 

13337 

0 013343 


DAC 

OM60 

6461 

13340 

0 013401 


DAC 

OM7Q 

6462 



• 



6463 



• 



6464 

13341 

0 02 13727 

0M56 

LDA 

OMJ1 

6465 

13342 

0 01 13607 


JMP 

OMB1 

6466 



• 



6467 

13343 

0 10 02672 

0M6Q 

JST 

STXA 

6468 

13344 

1 02 15401 


LDA 

DP*1 » 1 

6469 

13345 

0404 62 


LGR 

14 

6470 

13346 

Q 04 QQ655 


STA 

IU 

6471 

13347 

0 10 02676 


JST 

STX I 

6472 

13350 

1 02 15402 


LDA 

DP*2 , 1 

6473 

13351 

0 03 10027 


ANA 

K133 

6474 

13352 

101040 


SNZ 


6475 

13353 

0 01 13370 


JMP 

0M64 

6476 

13354 

0 02 00653 

0M62 

LDA 

IM 

6477 

13355 

0 04 00045 


STA 

MFL 

6478 

13356 

0414 70 


LGL 

8 

6479 

13357 

0 06 00653 


ADD 

IM 

6480 

13360 

0 05 13516 


ERA 

OM90 

6481 

13361 

0 04 00571 


STA 

NAMF*1 

6482 

13362 

0 02 00655 


LDA 

IU 

6483 

13363 

0 07 00717 


SUB 

K101 

6484 

13364 

100040 


SZE 


6485 

13365 

0 01 13526 


JMP 

OMA1 

6486 

13366 

0 02 13730 


LDA 

QM 1 2 

6487 

13367 

0 01 13377 


JMP 

0M66 

6488 

13370 

0 02 00655 

QM64 

LDA 

IU 

6489 

13371 

0 07 00721 


SUB 

K103 

6490 

13372 

100040 


SZE 


6491 

13373 

0 01 13354 


JMP 

0M62 

6492 

13374 

0 02 00717 


LDA 

K101 

6493 

13375 

0 04 00045 


STA 

MFL 

6494 

13376 

0 02 13731 


LDA 

OMI 3 

6495 

13377 

0 04 13142 

QM66 

STA 

T10M 


( »A • ) 
( »F ' > 
( *k' ) 


SET T C 1 > a ADD* 


SET INDEX * A 

SET UV * I U ( A ) 

SET I NDEXa J 

PCD 

»»77 

(POSSIBLE DUMMY ARRAY FETCH) 
SET CURRENT MODE TO ITEM MOUk 


CHECK FOR IU»1 (SUBROUTINE) 

SE T TCI) a JST 

CHECK FOR I V *3 (ARRAY) 

SET CURRENT MODE TO INTEGER 
SET T ( 1 ) a LDa# 


6459 

6460 

6461 

6462 

6463 

6464 
6463 

6466 

6467 

6468 

6469 

6470 

6471 

6472 

6473 

6474 

6475 

6476 

6477 

6478 

6479 

6480 

6481 

6482 

6483 

6484 

6485 

6486 

6487 

6488 

6489 

6490 

6491 

6492 

6493 

laq a 

WT * T 

6495 
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6496 13400 

6497 

6498 13401 

6499 13402 

6500 13403 

6501 13404 

6502 13405 

6503 13406 

6504 13407 

6505 13410 

6506 13411 

6507 13412 

6508 

6509 13413 

6510 13414 

6511 13415 

6512 13416 

6513 13417 

6514 13420 

6515 13421 

6516 13422 

6517 13423 
6510 13424 

6519 13425 

6520 13426 

6521 13427 

6522 13430 

6523 13431 

6524 13432 

6525 

6526 13433 

6527 13434 

6528 13435 

6529 13436 

6530 13437 

6531 13440 

6532 13441 


0 01 13611 

# 

JMP 

0MB3 

0 02 00717 

OM70 

IDA 

K101 

0 11 00653 


CAS 

IM 

0 01 13405 


JMP 

• ♦2 

0 01 13410 


JMP 

0M74 

0 02 00723 


LDA 

K105 

0 10 13313 


JST 

0M44 

0 01 13231 


JMP 

0M2Q 

0 02 00721 

0M74 

LDA 

K103 

0 10 13313 


JST 

0M44 

0 01 13256 

A 

JMP 

0M3Q 

0 10 02672 

0M76 

JST 

STXA 

1 02 15400 


LDA 

DP # 1 

0 04 13143 


STA 

T20M 

1 02 15402 


LDA 

DP*2 » 1 

0 03 10027 


ANA 

K133 

101040 


SNZ 


0 01 13466 


JMP 

0M84 

0 11 00755 


CAS 

K139 

0 01 13425 


JMP 

*♦2 

0 01 13433 


JMP 

OM80 

0 11 00754 


CAS 

K138 

0 01 13430 


JMP 

*♦2 

0 01 13510 


JMP 

QMHW 

0 02 13143 

0M78 

LDA 

T20M 

0 04 00040 


STA 

A 

0 01 13201 

£ 

JMP 

QM IQ 

0 10 02676 

0M8Q 

JST 

STX I 

0 02 13143 


LOA 

T20M 

1 04 15401 


STA 

DP*1» 1 

140040 

0 04 12676 


CRA 

STA 

T10T 

0 02 00040 


LDA 

A 

0 04 13142 


STA 

T10M 


CHECK ITEM MODE EQUALS INTEGER 


CHECK FOR MODE * COMPLEX 


CHECK FOR MODE a LOGICAL 

OUTPUT SUBROUTINE CALL 

I NDbX* A 
02(A) 

T ( 2 ) »U2 ( A ) 

P ( A ) 

* 1 77 

P ( A ) * * 0 f (SUBSCRIPTED VARIABLE) 


P(A)«*X» (END OF ARRAY CALCULATION) 

P(4)« *H» (HOLLERITH DATA) 

RESET A 


I NDEX « I 
OKI) « T ( 2 ) 

SET T(l) OF OUTPUT TRIADS TO ZERO 
SAVE A 


6496 

6497 

6498 

6499 

6500 

6501 

6502 

6503 
65 04 

6505 

6506 

6507 

6508 

6509 

6510 

6511 

6512 

6513 

6514 

6515 

6516 

6517 

6518 

6519 

6520 

6521 

6522 

6523 

6524 

6525 

6526 

6527 

6528 

6529 

6530 

6531 

6532 
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6533 

13442 

140040 

6534 

13443 

0 04 

00040 

6535 

13444 

0 02 

00060 

6536 

13445 

0 06 

00720 

6537 

13446 

0 04 

00630 

6538 

13447 

0 02 

13732 

6539 

13450 

0 10 

13773 

6540 

13451 

0 02 

OQ060 

6541 

13452 

0 06 

00720 

6542 

13453 

0 04 

00630 

6543 

13454 

0 02 

13733 

6544 

13455 

0 10 

13773 

6545 

13456 

0 02 

13142 

6546 

13457 

0 04 

00040 

6547 

13460 

0 04 

00067 

6548 

13461 

140040 

6549 

13462 

0 04 

13142 

6550 

13463 

0 02 

00717 

6551 

13464 

0 04 

00631 

6552 

13465 

0 01 

13504 

6553 

13466 

1 02 

15401 

6554 

13467 

0 04 

00040 

6555 

13470 

0 11 

00113 

6556 

13471 

0 01 

13473 

6557 

13472 

0 01 

13476 

6558 

13473 

0 02 

13726 

6559 

13474 

0 04 

13142 

6560 

13475 

0 01 

13201 

6561 




6562 

13476 

0 02 

13143 

6563 

13477 

0 04 

00040 

6564 

13500 

0 04 

00000 

6565 

13501 

0 04 

00067 

6566 

13502 

1 02 

15400 

6567 

13503 

0 04 

13143 

6566 

i 35 04 

0 10 

i r% 

6569 

13505 

1 U2 

15401 


L COMPUTER CONTROL 


• C210-Q01-6601 (FRTN) 


CRA 

STA A 
IDA RPL 
ADD K102 
STA AF 
LDA OM 1 4 
JST QROO 
LDA RPL 
ADD K102 
STA AF 
LDA OM 1 5 
JST OROO 
LDA TIOM 
STA A 
STA SOF 
CRA 

STA T1QM 
LDA K101 
STA At 
JMP 0M68 
0M84 LDA DP*1# 1 
STA A 
CAS LO 
JMP * + 2 

JMP 0M86 
LDA OHIO 
STA TIOM 
JMP OHIO 

• 

QM86 LDA T20M 
STA A 
STA 0 
STA SOF 
LDA DP i 1 
STA T20M 

t'y an i r* v A "F w A 

unoo joi ^ i a a 

LDA DP*1»1 


DIVISION PROGRAM DOCUMENTATION 
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SET AsO (NOT SYMBOLIC) 


AFsRPL+2 

* ADD INSTRUCTION 
OUTPUT RELATIVE 

AF s RPL p* 2 

« JMP INSTK, 

OUTPUT RELATIVE 

RESTORE A 

SET SPECIAL OUTPUT FLAG TO NUN-ZERO 
* DAC INSTR. 


01(A) 

A«01(A) 


A»L(0) ,,, .CONSTANT SUBSCRIPT ONLY 
T ( 1 ) * INDIRECT BIT 


A*T(2) 


T ( 2 ) s 02(A) 


A ! * w W r* 

01(A) 


6533 

6534 

6535 

6536 

6537 

6538 

6539 

6540 

6541 

6542 

6543 

6544 

6545 

6546 

6547 

6548 

6549 

6550 

6551 

6552 

6553 

6554 

6555 

6556 

6557 

6558 

6559 

6560 

6561 

6562 

6563 

6564 

6565 

6566 

6567 

6568 
656V 
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6570 

13506 

0 04 13145 

STA 

6571 

13507 

0 01 13430 

JHP 

6572 

13510 

0 02 13143 

omhw lda 

6573 

13511 

0 04 00630 

STA 

6574 

13512 

140040 

CRA 

6575 

13513 

0 04 00040 

STA 

6576 

13514 

0 10 13773 

JST 

6577 

13515 

•0 01 13147 

JHP# 

6578 



• 

6579 

13516 

130260 

0M9Q OCT 

6580 

13517 

000244 

QM91 OCT 

6581 

13520 

141644 

0M92 OCT 

6582 

13521 

152322 

0M93 OCT 

6583 

13522 

000021 

0H94 OCT 

6584 

13523 

017777 

0M95 OCT 

6585 

13524 

147244 

0M96 BCI 

6586 

13525 

126661 

QM97 BCI 

6587 



• 

6588 

13526 

0 02 00653 

OHA1 LDA 

6589 

13527 

0 11 00721 

CAS 

6590 

13530 

0 01 13532 

JMP 

6591 

13531 

0 01 13630 

JHP 

6592 

13532 

0 11 00717 

CAS 

6593 

13533 

0 01 13535 

JHP 

6594 

13534 

0 01 13536 

JHP 

6595 

13535 

0 01 13256 

JHP 

6596 



# 

6597 

13536 

0 02 13141 

QMA3 UDA 

6598 

13537 

0 11 00721 

CAS 

6599 

13540 

0 01 13542 

JHP 

6600 

13541 

0 01 13551 

JHP 

6601 

13542 

0 11 13522 

CAS 

6602 

13543 

0 01 13545 

JHP 

6603 

13544 

0 01 13567 

JMP 

6604 

13545 

0 11 00717 

CAS 

6605 

13546 

0 01 13563 

JHP 

6606 

13547 

0 02 13732 

LDA 


T90M 

T(9)»01(A) 

0M78 


T20M 


AF 


A 


OROO 


OMOO 


130260 

»QQ » 

000244 

* S* 

141644 

»CS» 

152322 

»TR» 

000021 

»C» CODE 

017777 

f MASK) 

1 $ NS 


1# *1 


IM 

CHECK FOR IM#LOGICAL 

K103 


#♦2 


QHC1 

IH«lOGICAL 

K101 

CHECK FOR I M» INTEGER 

#♦2 


0HA3 

IM» INTEGER 

OH30 


TQOM 

CHECK FOR T » 0 ) * »♦» 

K1Q3 

*3 

• ♦2 


OMA4 

T(0)» *#» 

0M94 

T ( 0 ) * 1 C f 

*♦2 


0HA6 

OUTPUT »TCA* 

K101 


0MA5 


OM I 4 

'ADD IiNiSTR, 


6570 

6571 

6572 

6573 

6574 

6575 

6576 

6577 

6578 

6579 

6580 

6581 

6582 

6583 

6584 

6585 

6586 

6587 
6508 

6589 

6590 

6591 

6592 

6593 

6594 

6595 

6596 

6597 

6598 

6599 

6600 
6601 
6602 

6603 

6604 

6605 

6606 
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6607 

13550 

0 01 13607 


JHP 

OMB1 


660/ 

6608 

13551 

0 02 13143 

0MA4 

LDA 

T20M 

VALUE OF A 

6608 

6609 

13552 

0 07 00744 


SUB 

K126 

='12 KNOWN LOCATION OF A FOR 2 

6609 

6610 

13553 

100040 


SZE 


SKIP IF MULTIPLIER IS A CONSTANT OF 2 

6610 

6611 

13554 

0 01 13256 


JMP 

OM30 

COUPLE TO THE MULTIPLY SUBROUTINE 

6611 

6612 

13555 

0 04 00040 


STA 

A 

SET A AND AF TO ZERO (FOR LISTING FLAGS) 

6612 

6613 

13556 

0 04 00630 


STA 

AF 


6613 

6614 

13557 

0 02 13562 


LDA 

#♦3 

ALS 1 INSTRUCTION 

6614 

6615 

13560 

0 10 14127 


JST 

OAOO 

OUTPUT ABSOLUTE 

6615 

6616 

13561 

-0 01 13147 


JMP# 

OMOO 

EXIT OUTPUT ITEM 

6616 

6617 

13562 

0415 77 


ALS 

1 

(INSTRUCTION TO BE OUTPUT) 

6617 

6618 

13563 

0 11 Q0720 

QMA5 

CAS 

K1Q2 

CHECK FOR T ( 0 ) • *-• 

6618 

6619 

13564 

0 01 13576 


JMP 

0MA7 


6619 

6620 

13565 

0 02 13734 


LDA 

QM 1 6 

*SUB INSTR, 

6620 

6621 

13566 

0 01 13607 


JMP 

OMB1 


6621 

6622 

13567 

140040 

0MA6 

CRA 



6622 

6623 

13570 

0 04 00040 


STA 

A 

CAUSE OCTAL ADDR LISTING 

6623 

6624 

13571 

0 04 00630 


STA 

AF 


6624 

6625 

13572 

0 02 13575 


LDA 

• ♦3 

TCA 

6625 

6626 

13573 

0 10 14127 


JST 

OAOO 

OUTPUT ABSOLUTE 

6626 

6627 

13574 

-0 01 13147 


JMP# 

OMOO 

EXIT 

6627 

6628 

13575 

140407 


TCA 



6628 

6629 

13576 

0 11 02702 

OMA7 

CAS 

K153 

CHECK FOR T ( 0 ) s 

6629 

6630 

13577 

0 01 13601 


JMP 

*♦2 


6630 

6631 

13600* 

0 01 13606 


JMP 

0MA9 

OUTPUT A STA InSTR, 

6631 

6632 

13601 

0 07 13140 


SUB 

K152 

CHECK FOR T ( 0 ) « *F' 

6632 

6633 

136Q2 

100040 


SZE 



6633 

6634 

13603 

0 01 13256 


JMP 

0M30 


6634 

6635 

13604 

0 02 13735 

QMA 8 

LDA 

OMI7 

*LDA INSTR, 

6635 

6636 

13605 

0 01 13607 


JMP 

OMB1 


66 36 

6637 

13606 

0 02 13736 

0MA9 

LDA 

OMIb 

3STA INSTR, 

6637 

6638 

13607 

0 06 13142 

OMB1 

ADD 

T10M 

TCI) * T ( 1 ) ♦ INSTR, 

6638 

6639 

13610 

0 04 13142 


STA 

T10M 


6639 

6640 

13611 

0 02 13143 

0MB3 

LDA 

T20M 

SET A s T ( 2 ) 

6640 

6641 

13612 

0 04 00040 


STA 

A 


6641 

6642 

13613 

0 02 13145 


LDA 

T 90 M 

OUTPUT INSTR, *ITH T C 1 ) AND T(9> 

0642 

6643 

13614 

000201 


I A B 



6643 
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6644 13615 

6645 13616 

6646 13617 

6647 13620 

6648 13621 

6649 13622 

6650 13623 

6651 13624 

6652 13625 

6653 13626 

6654 13627 

6655 

6656 

6657 13630 

6658 13631 

6659 13632 

6660 13633 

6661 13634 

6662 13635 

6663 13636 

6664 13637 

6665 13640 

6666 13641 

6667 13642 

6668 13643 

6669 13644 

6670 13645 

6671 13646 

6672 13647 

6673 13650 

6674 13651 

6675 13652 

6676 13653 

6677 13654 

6678 13655 

6679 13656 

6680 13657 


0 

02 

13142 

LDA 

TiOM 

0 

10 

12467 

JST 

0900 

0 

02 

13144 

LDA 

T80M 

0 

11 

02702 

CAS 

K153 

-0 

01 

13147 

JMP# 

OMOO 

0 

01 

13624 

JMP 

#♦2 

•0 

01 

13147 

JMP# 

OMOO 

0 

02 

00066 

LDA 

TRF A 

0 

04 

00040 

STA 

A 

0 

10 

13663 

JST 

TRSE 

-0 

01 

13147 

• 

JMP# 

OMOO 

0 

02 

* 

13141 OMC1 

LDA 

TOOM 

0 

11 

13140 

CAS 

K152 

0 

01 

13634 

JMP 

*♦2 

0 

01 

13604 

JMP 

0MA8 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


11 02702 
01 13637 
01 13606 
11 13522 
01 13642 
01 13256 
11 00724 
01 13645 
01 13651 
11 00725 
01 13323 
01 13256 
01 13323 


CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

CAS 

JMP 

JMP 

JMP 


02 13737 0MC5 LDA 
JMP 
OMD1 IRS 
JMP 
0ME1 CRA 
STA 
JST 


01 13607 
12 13146 
01 13162 
140040 
0 04 00640 
0 10 14127 


K153 
#♦2 
0MA9 
0M94 
• ♦2 
OM30 
K106 
•♦2 
0MC5 
K107 
0M46 
OM30 
QM46 
OMJ9 
OM01 
TXOM 
OM05 

DF 

OAO 0 


OUTPUT OA 

CHECK FOR T ( 8 ) • ♦»» 
»» 16 


EXIT 

POINTtR TO FIRST VARIABLE OR ARRAY 
PROCESSED IN EXPRESSION 
OUTPUT TRACE COUPLING IF REQUIRED 
EXIT OUTPUT ITEM 


CHECK FOR T ( 0 ) « 

OUTPUT A LDA INSTR, 

CHECK FOR TCO) » ♦«' 

OUTPUT A STA INSTR, 
check for tio ) ■ * c * 

OUTPUT COMPLEMENT CODING 

OUTPUT AN ANA INSTR, 

ERROR 

ERROR 

•ANA INSTR, 

TO a TO *1 

DF a o 

output absolute 


6644 

6645 

6646 

6647 

6648 

6649 

6650 

6651 

6652 

6653 

6654 

6655 

6656 

6657 

6658 

6659 

6660 
6661 
6662 

6663 

6664 

6665 

6666 

6667 

6668 

6669 

6670 

6671 

6672 

6673 

6674 

6675 

6676 

6677 

6678 

6679 
6660 
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6681 

13660 

140040 

0ME5 

CRA 


6682 

13661 

0 

04 

13146 


STA 

TXOM 

6683 

13662 

0 

01 

13162 


JMP 

OM05 

6684 





• 



6685 

13663 

0 

000000 

TRSE 

DAC 

0 

6686 

13664 

0 

10 

02672 


JST 

STXA 

6687 

13665 

100040 


S2E 


6688 

13666 

1 

02 

15404 


lda 

DP*4,1 

6689 

13667 

100400 


SPL 


6690 

13670 

0 

01 

13676 


JMP 

TRS7 

6691 

13671 

100002 


SR4 


6692 

13672 

0 

01 

13676 


JMP 

TRS7 

6693 

13673 

0 

02 

00065 


LDA 

TR F 

6694 

13674 

101040 


SNZ 


6695 

13675 

-0 

01 

13663 


JMP* 

TRSE 

6696 

13676 

0 

10 

02722 

TRS7 

JST 

NFOO 

6697 

13677 

0 

02 

13521 


LDA 

0M93 

6698 

13700 

0 

04 

00571 


STA 

NAMF + 1 

6699 

13701 

0 

10 

12363 


JST 

CNQ 0 

6700 

13702 

0 

10 

02672 


JST 

STXA 

6701 

13703 

1 

02 

15404 


LDA 

DP + 4,1 

6702 

13704 

0 

03 

13523 


ANA 

0M95 

6703 

13705 

0 

04 

13142 


STA 

T10M 

6704 

13706 

1 

02 

15403 


LDA 

DP*3# 1 

6705 

13707 

0 

04 

13144 


STA 

T80M 

6706 

13710 

1 

02 

15462 


LDA 

DP*2 # 1 

6707 

13711 

0 

04 

13145 


STA 

T90M 

6708 

13712 

140040 


CRA 


6709 

13713 

0 

04 

00640 


STA 

DF 

6710 

13714 

1 

02 

15400 


LDA 

DP# 1 

6711 

13715 

0405 

67 


ARS 

9 

6712 

13716 

0414 

63 


LGL 

13 

6713 

13717 

0 

05 

13142 


ERA 

T10M 

6714 

13720 

0 

10 

14127 


JST 

OAOO 

6715 

13721 

0 

02 

13144 


LDA 

T8GM 

6716 

13722 

0 

10 

14127 


JST 

0 A G (J 

6717 

13723 

0 

02 

13145 


LDA 

T 90 M 


6681 

TO * 0 6682 

0683 

6684 

SUBROUTINE TO OUTPUT TRACE COUPLING 6685 

SET INDEX « A 6686 

6687 

CHECK STATUS OF TRACE TAG 6688 

6689 

6690 

6691 

6692 

CHECK STATUS OF TRACE FLAG 6693 

6694 

6695 

SET LBUF TO ’ Fs 1 # LBUF*2 TO SPACES 6696 

s » TR ’ 6697 

6698 

OUTPUT, ,,, .CALL NAMF 6699 

SET INDEX « A 6700 


6701 

6702 

6703 

6704 

6705 

6706 

6707 

6708 

6709 

MERGE IM WITH ITEM NAME 6710 

6711 

6712 

6713 

OUTPUT ABSOLUTE (FIRST 2 CHAR,) 6714 

6715 

OUTPUT ABSOLUTE (NEXT 2 CHAR,) 6716 

6717 
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6718 

13724 

0 10 14127 


JST 

OAO 0 

6719 

13725 

-0 01 13663 


JMP* 

TRSE 

6720 



• 



6721 



*,.. 



6722 

13726 

100000 

OHIO 

OCT 

100000 

6723 

13727 

114000 

OMI1 

OCT 

114000 

6724 

13730 

020000 

OM 1 2 

OCT 

020000 

6725 

13731 

104000 

OM 1 3 

OCT 

104000 

6726 

13732 

014000 

OM 14 

OCT 

014000 

6727 

13733 

002000 

OM 15 

OCT 

002000 

6728 

13734 

016000 

0MI6 

OCT 

016000 

6729 

13735 

004000 

OM 1 7 

OCT 

004000 

6730 

13736 

oioooo 

OM 1 8 

OCT 

010000 

6731 

13737 

006000 

OM 1 9 

OCT 

066000 

6732 

13740 

102000 

OMJ1 

OCT 

102000 

6733 

13741 

101040 

0MJ2 

OCT 

101040 

6734 

13742 

101400 

0MJ3 

OCT 

101400 

6735 

13743 

0415 60 

0MJ4 

ALS 

16 

6736 

13744 

040461 

0MJ5 

OCT 

040461 

6737 

13745 

141216 

0MJ6 

OCT 

141216 

6738 

13746 

140407 

0MJ7 

OCT 

140407 

6739 

13747 

140401 

OMKl 

OCT 

140401 

6740 

13750 

101001 

0MK2 

OCT 

101001 

6741 

13751 

141206 

0MK3 

OCT 

141206 

6742 

13752 

140500 

0MK4 

OCT 

140500 

6743 

13753 

042000 

0MK5 

OCT 

042000 

6744 

13754 

000000 

0MK6 

OCT 

o oo oo o 

6745 

13755 

0415 77 


ALS 

l 

6746 

13756 

140407 


TCA 


6747 

13757 

176000 

0MK7 

OCT 

176000 

6748 

13760 

0 11 00000 

0MK9 

CAS 

0 ' 

6749 

13761 

-0 04 00000 


STA* 

0 

6750 

13762 

-0 07 00000 


SUB* 

0 

6751 

13763 

-0 000000 


DAC* 

• • 

6752 

13764 

131001 


OCT 

131001 

6753 

13765 

030000 


OCT 

030000 

6754 

13766 

-0 11 00000 


CAS* 

0 


OUTPUT ABSOLUTE (LAST 2 CHAR,) 


INSTRUCTION TABLE 

INDIRECT BIT 
ADD* 

JST 

LDA* 

ADD 

JMP 

SUB 

LDA 

STA 

ANA 

JMP* 

SNZ 

SMI 

LGR X5 

ACA 
TCA 
CMA 
SSC 
AOA 
. SSM 
JMP 0,1 
DAC •* 

ALS1 

TCA 

STG 

CAS 


SubR 


6718 

6719 

6720 

6721 

6722 

6723 

6724 

6725 

6726 

6727 

6728 

6729 

6730 

6731 

6732 

6733 

6734 

6735 

6736 

6737 

6738 

6739 

6740 

6741 

6742 
67 43 

6744 

6745 

6746 

6747 

6748 

6749 

6750 

6751 

6752 

6753 

6754 




HON 
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T 

XJ 
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6755 

13767 

000000 

0MK8 

OCT 

0 

{///) 

6755 

6756 

13770 

0 02 U 0717 

0ML1 

LDA 

K101 


6756 

6757 

13771 

0 04 00631 


STA 

AT 


6757 

6758 

13772 

0 01 12710 


JMP 

0T10 


6758 

6759 



• 




6759 

6760 



• 




6760 

6761 



• 


•OUTPUT 

REL* 

6761 

6762 



* 




6762 

6763 



• 


ALSO DRIVES 

SYMBOLIC INSTRUCTION OUTPUT, 

6763 

6764 

13773 

0 000000 

OROO 

DAC 

• • 


6764 

6765 

13774 

0 04 00647 


STA 

FTOP 


6765 

6766 

13775 

0 02 00720 


LDA 

K102 

DF ■ NON ZERO 

6766 

6767 

13776 

0 04 00640 


STA 

DF 

CODE « 2 

6767 

6768 

13777 

0 04 00632 

0R10 

STA 

CODE 


6768 

6769 

14000 

0 02 00060 


LOA 

RPL 

LIST RPL 

6769 

6770 

14001 

140100 


SSP 



6770 

6771 

14002 

0 10 14150 


JST 

OR80 


6771 

6772 

14003 

0 014702 


DAC 

PRI 


6772 

6773 

14004 

0 02 00640 

0R12 

LDA 

DF 

IF DF NOT ZERO 

6773 

6774 

14005 

100040 


SZE 



6774 

6775 

14006 

0 01 14031 


JMP 

OR20 

GO TO QR2Q 

6775 

6776 

14007 

0 02 14027 


LDA 

0R18 

8*147703 

6776 

6777 

14010 

0 04 14707 


STA 

PR I *5 


6777 

6778 

14011 

0 02 14030 


LDA 

0R19 

SET ’OCT* INTO PRINT IMAGE 

6778 

6779 

14012 

0 04 14710 


STA 

PR 1 *6 


6779 

6780 

14013 

0 02 00647 


LDA 

FTOP 


6780 

6781 

14014 

0 10 14150 

0R13 

JST 

OR80 


6781 

6782 

14015 

0 014712 


DAC 

PRI *8 


6782 

6783 

14016 

0 02 00060 

QR15 

LDA 

RPL 

IF RPL PLUS 

6783 

6784 

14017 

101400 


SMI 



6784 

6785 

14020 

0 10 14365 


JST 

owoo 

OUTPUT WORD 

6785 

6786 

14021 

100010 


SR2 



6786 

6787 

14022 

0 01 14025 


JMP 

• ♦3 

SUPPRESS SYMbOLlC OUTPUT 

6787 

6786 

14023 

0 10 00000 


CALL 

F4SSYM 

LIST LINE 

6788 

6789 

14024 

0 014702 


DAC 

PRI 


6789 

6790 


0 10 14301 


JST 

PkSP 

Stl ►'HINT dUhKbK J“Q SPACES 

oTvg 

6791 

14026 

-0 01 13773 


JMP* 

OROO 

RETURN 

6791 
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6792 

14027 

147703 0R18 

OCT 

147703 

6793 

14030 

152240 0R19 

OCT 

152240 

6794 

14031 

0 10 03007 0R2Q 

JST 

SAV 

6795 

14032 

0 02 14176 

LDA 

OR90 

6796 

14033 

140407 

TCA 


6797 

14034 

0 04 00000 

STA 

XR 

6798 

14035 

0 02 00647 

LDA 

FTOP 

6799 

14036 

140100 

SSP 


6800 

14037 

100040 

SZE 


6801 

14040 

0 01 14050 

JMP 

0R24 

6802 

14041 

0 02 00631 

LDA 

AT 

6803 

14042 

0 11 00721 

CAS 

K103 

6804 

14043 

0 07 00724 

SUB 

Ki06 

6805 

14044 

0 06 00720 

ADD 

K102 

6606 

14045 

140401 

CMA 


6807 

14046 

0 03 00725 

ANA 

K107 

6808 

14047 

0 04 00632 

STA 

CODE 

6809 

14050 

0 02 00647 0R24 

LDA 

FTOP 

6810 

14051 

1 11 13767 

CAS 

0R91*NI NS# 1 

6811 

14052 

0 01 14054 

JMP 

*♦2 

6312 

14053 

0 01 14056 

JMP 

• ♦3 

6813 

14054 

0 12 00000 

IRS 

XR 

6814 

14055 

0 01 14051 

JMP 

#*4 

6815 

14056 

1 02 14237 

LDA 

0R92*N I NS » 1 

6816 

14057 

0 04 14707 

STA 

PRI*5 

6817 

14060 

1 02 14300 

LDA 

0R93^NJ NS # 1 

6818 

14061 

0 04 14710 

STA 

PRI*6 

6819 

14062 

0 10 03016 

JST 

RST 

6820 

14063 

0 02 00040 

LDA 

A 

6821 

14064 

100040 

SZE 


6622 

14065 

0 01 14071 

JMP 

0R3Q 

6823 

14066 

0 02 00630 

LDA 

AF 

6824 

14067 

0 03 00730 

ANA 

Kill 

6825 

14070 

0 01 14014 

JMP 

0R13 

6826 

14071 

0 10 02672 OR30 

JST 

stxa 

6827 

14072 

1 02 15400 

LDA 

DP 1 1 

6828 

14073 

101400 

SMI 



(0) (C) 

(T) (SP) 

SEARCH OP-CODE LIST 
PUT BCI IN PRINT IMAGE 


MASK OUT HIGH BITS OF AQDRtSS 


6792 

6793 

6794 

6795 

6796 

6797 

6798 

6799 
6600 
6801 
6802 

6803 

6804 

6805 
6606 

6807 

6808 

6809 

6810 
6811 
6812 

6813 

6814 

6815 

6816 

6817 

6818 

6819 

6820 
6821 
6822 

6823 

6824 

6825 

6826 

6827 

6828 
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6829 14074 0 01 14114 JMP 0R4Q 

6830 14075 0 02 14363 LDA K149 

6831 14076 0 04 14712 STA PRi+8 

6832 14077 1 02 15400 LDA DP#1 

6833 14100 0414 74 IGl 4 

6834 14101 100400 SPL 

6835 14102 0 01 14106 JMP **4 

6836 14103 0414 76 LGL 2 

6837 14104 100400 SPL 

6838 14105 0 01 14110 JMP «*3 

6839 14106 1 02 15402 LDA DP+2,1 

6840 14107 0 01 14111 JMP 

6841 14110 1 02 15404 LDA DP*4,1 

6842 14111 0 10 14150 JST 0R8Q 

6843 14112 0 014713 DAC PR1*9 

6844 14113 0 01 14016 JMP 0R15 

6845 14114 1 02 15404 0R40 LDA DPM,1 

6846 14115 0416 77 ALR 1 

6847 14116 140500 SSM 


6848 

14117 

0406 77 


ARR 

1 

6849 

14120 

140500 


SSM 


6850 

14121 

0 04 14712 


STA 

PR I *8 

6851 

14122 

1 02 15403 


LDA 

DP*3,1 

6852 

14123 

0 04 14713 


STA 

PR 1*9 

6853 

14124 

1 02 15402 


LDA 

DP*2# 1 

6854 

14125 

0 04 14714 


STA 

PR I ♦IQ 

6855 

14126 

0 01 14016 


JMP 

0R15 

6856 



• 



6857 



* 


•OUTPUT ABS 

6858 



ft 



6859 

14127 

0 000000 

0 AO 0 

DAC 

• • 

6860 

14130 

0 04 00647 


STA 

F TOP 

6861 

14131 

0 02 14127 


LDA 

OAOO 

6862 

14132 

0 04 13773 


STA 

QROO 

6863 

14133 

140040 


CRA 


6864 

14134 

0 01 13777 


JMP 

OHIO 


6865 


PROGRAM DOCUMENTATION 
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6629 

6830 

SET sl INTO LISTING ^31 

CHECK IM (A) <>832 

6833 

SKIP IP NOT COMPLEX 6834 

6835 

6836 

skip ik integer or logical 6837 

6838 

6839 

LIST EXPONENT AND PART OF FRACTION 6840 

LIST INTEGER VALUE 6841 

CONVERT OCTAL 6042 

6843 

6844 

convert and pack into 6845 

6846 

SYMBOLIC IMAGE 6847 


6848 

6849 

6850 

6851 

6852 

6853 

6854 

6855 

6856 

6857 

6858 

6859 

6860 
6861 
6862 

6863 

6864 

6865 
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0-001 
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6866 



* 


•OUTPUT 

STRING-HPL* 6866 

6867 



• 




6868 

14135 

0 000000 

osoo 

DAC 

00 

6868 

6869 

14136 

0 04 00630 


STA 

A F 

6869 

6870 

14137 

0 02 13757 


IDA 

0MK7 

6870 

6871 

14140 

0 04 00647 


STA 

FTOP 

6871 

6872 

14141 

0 02 14135 


LDA 

OSOO 

6872 

6873 

14142 

0 04 13773 


STA 

OROO 

SET RETURN I n T 0 OUTPUT REL 6873 

6874 

14143 

0 02 00722 


LDA 

K104 

6874 

6875 

14144 

0 04 00632 


STA 

CODE 

6875 

6876 

14145 

0 04 14461 


STA 

STFL 

STRING FLAG * NON ZERO 6876 

6877 

14146 

0 10 14301 


JST 

PRSP 

SET PRINT BUF, TO SPACES 6877 

6878 

14147 

0 01 14031 


JMP 

OR20 

JMP-OUTPUT REL FOR SYMBOLIC AND BINARY 6878 

6879 

14150 

0 000000 

QR80 

DAC 

• • 

6879 

6880 

14151 

000201 


I AS 


6880 

6881 

14152 

-0 02 14150 


LDA* 

0R80 

6881 

6882 

14153 

0 04 14175 


STA 

0R89 

6882 

6883 

14154 

140040 


CRA 


6883 

6884 

14155 

0402 76 


LRR 

2 

6884 

6885 

14156 

0 12 14150 


IRS 

OR80 

6885 

6886 

14157 

0 10 14163 


JST 

0R85 

6886 

6887 

14160 

0 10 14163 


JST 

0R85 

6887 

6888 

14161 

0 10 14163 


JST 

0R85 

6888 

6889 

14162 

-0 01 14150 


JMP* 

QR80 

6889 

6890 

14163 

0 000000 

QR85 

DAC 

«« 

6890 

6891 

14164 

0 06 14364 


ADD 

K14Q 

6891 

6892 

14165 

0412 75 


LLR 

3 

6892 

6893 

14166 

0414 73 


LGL 

5 

6893 

6894 

14167 

0 06 14364 


ADD 

K14Q 

6894 

6895 

14170 

0410 75 


LLL 

3 

6895 

6896 

14171 

-0 04 14175 


STA* 

0R89 

6896 

6897 

14172 

0 12 14175 


IRS 

0R89 

6897 

6898 

14173 

140040 


CRA 


6898 

6899 

14174 

-0 01 14163 


JMP* 

0R85 

6899 

6900 

14175 

0 00 00000 

0R89 

PZE 

0 

69QU 

6901 

14176 

0 000040 

0R9Q 

DAC 

NINS 

6901 

6902 


013733 

K200 

EQU 

OH 1 7 

6902 



HONEYWELL 


rnuDMTCD rnuToni rw 

s-wfiii g n.i\ Ut 
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VISION 




* C210-001 

-6601 ( FRTN ) 3C NO. 180463000 KcV 

6903 

013733 

K 20 1 EQU 

OM I 5 

6904 

013736 

K202 EQU 

0MI8 

6905 

013732 

K2Q J EQU 

OM I 4 

6906 

013734 

K204 EQU 

OMJ 6 

6907 

013742 

K 205 EQU 

OMJ3 

6908 

013740 

K206 EQU 

0MJ1 

6909 

013753 

K 20 7 EQU 

0MK5 

6910 

013727 

0H91 EQU 

OMU 

6911 14177 
14200 

140704 

145323 

0R92 BCI 

22# AD JSLDAD JMSULDSTANJMSNSMLLLRACTCCMSSAOSS JMQA 

14201 

146304 



14202 

140704 



14203 

145315 



14204 

151725 



14205 

146304 



14206 

151724 



14207 

140716 



14210 

145315 



14211 

151716 



14212 

151715 



14213 

146314 



14214 

146322 



14215 

140703 



14216 

152303 



14217 

141713 



14220 

151723 



14221 

140717 



14222 

151723 



14223 

145315 



14224 

142301 



6912 14225 

140714 

BCI 

2, ALTC 

14226 

152303 



6913 14227 

151724 

BCI 

9,STCASTSUDAERSUCA// 

14230 

141701 



14231 

151724 



142 32 

i lO fit 

A y A ^ c. y 



14233 

142301 




192 


6903 

6904 
69Q6 

6906 

6907 

6908 
69Q9 

6910 

6911 


6912 

6913 
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14234 

142722 


14235 

151725 


14236 

141701 


14237 

127657 

6914 

1 14240 

142252 


1«2«1 

152240 


14242 

140652 


14243 

142240 


14244 

150240 


14245 

141240 


14246 

140640 


14247 

140640 


14250 

140640 


14251 

150252 


14252 

155240 


14253 

144640 


14254 

130665 


14255 

130665 


14256 

140640 


14257 

140640 


14260 

140640 


14261 

141640 


14262 

140640 


14263 

146640 


14264 

150330 


14265 

141640 

6915 

14266 

151661 


14267 

140640 

6916 

14270 

143640 


14271 

151640 


14272 

140652 


14273 

141252 


14274 

141652 


14275 

151237 


14276 

141322 


14277 

151652 


14300 

127640 


0R93 BCI 22 » D*T A*D P B A A A P*Z I 1515A A A C A H PXC 


SCI 2#S1A 

BCI 9,G S A*B*C*R/BRS#/ 


6914 


6915 

6916 
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6917 


000040 

N 1 NS 

EQU 

32 


6917 

6918 



• 




6918 

6919 

14301 

0 000000 

PR SP 

DAC 

#• 

SUriR. TO SET PRINT BUF, TO SPACES 

6919 

6920 

14302 

0 02 14311 


LDA 

PRSK 

s-40 

6920 

6921 

14303 

0 04 00000 


STA 

0 


6921 

6922 

14304 

0 02 01154 


LDA 

KASP 

(SP) (SP) 

6922 

6923 

14305 

1 04 14752 


STA 

PR I *40 » 1 


6923 

6924 

14306 

0 12 00000 


IRS 

0 


6924 

6925 

14307 

0 01 14305 


JMP 

*-2 


6925 

6926 

14310 

-0 01 14301 


JMP* 

PRSP 

EXIT 

6926 

6927 

14311 

177730 

PRSK 

OCT 

177730 

M 

1 

Jt* 

O 

6927 

6928 



# 




6928 

6929 



• 




6929 

6930 



* 


•OUTPUT 

SUBROUTINE/COMHON block name* 

6930 

6931 



* 




6931 

6932 



• 


OUTPUT AN 

external reference name. 

6932 

6933 



• 




6933 

6934 

14312 

0 000000 

QN0Q 

DAC 

• # 


6934 

6935 

14313 

0 04 14362 


STA 

ONT1 

SAVE ADDRESS 

6935 

6936 

14314 

0 10 14523 


JST 

FSOO 

FLUSH BUFFER IF NECESSARY 

6936 

6937 

14315 

0 10 02672 


JST 

STXA 

SET iNDgXaA 

693 / 

6938 

14316 

0 02 14362 


LDA 

ONT1 

SUBK, ENTRY ADQR , 

6938 

6939 

14317 

0400 62 


LRL 

14 


6939 

6940 

14320 

0 04 14362 


STA 

ONT1 

SAVE S/C BITS 

6940 

6941 

14321 

0 02 14361 


LDA 

ONU2 

a»60U (»BLOCK CODE NO,) 

6941 

6942 

14322 

0410 72 


LLL 

6 


6942 

6943 

14323 

0 04 14632 


STA 

OCI 

fill buffer 

6943 

6944 

14324 

0400 70 


LRL 

8 


6944 

6945 

14325 

0 10 02672 


JST 

STXA 

SET INUEXsA 

6945 

6946 

14326 

1 02 15404 


LDA 

DP+4, 1 

FIRST 2 char, of name 

6946 

6947 

14327 

0 03 00730 


ANA 

Kill 

**037777 

6947 

6948 

14330 

0 11 14331 


CAS 

♦♦i 


6948 

6949 

14331 

020240 


OCT 

020240 


6949 

6950 

14332 

0 05 0 0 74 u 


ERA 

K 12 2 


6950 

6951 

14333 

0 05 0U760 


ERA 

HBIT 

s ' 14uQ0Q 

6951 

69$>2 

14334 

U40* 7u 


LRR 

8 



6953 

14335 

0 04 14633 


STA 

oci+i 

BUFF HP 

6953 
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6954 

14336 

0400 70 


LRL 

8 

6955 

14337 

1 02 15403 


lda 

DP^3# 1 

6956 

14340 

0402 70 


LRR 

8 

6957 

14341 

0 04 14634 


STA 

OCI +2 

6958 

14342 

0400 70 


LRL 

8 

6959 

14343 

1 02 15402 


LDA 

DP^2,1 

6960 

14344 

0402 70 


LRR 

8 

6961 

14345 

0 04 14635 


STA 

OCI *3 

6962 

14346 

0410 70 


lll 

8 

6963 

14347 

0414 76 


LGL 

2 

6964 

14350 

0 06 14362 


ADD 

ONT1 

6965 

14351 

0414 72 


LGL 

6 

6966 

14352 

0 04 14636 


STA 

OC 1+4 

6967 

14353 

140040 


CRA 


6960 

14354 

0 04 14637 


STA 

OC 1*5 

6969 

14355 

0 02 00746 


LDA 

Kl28 

6970 

14356 

0 04 00602 


STA 

QCNT 

6971 

14357 

0 10 14523 


JST 

FSOO 

6972 

14360 

•0 01 14312 


JMP* 

ONOO 

6973 

14361 

000600 

ON02 

OCT 

600 

6974 

14362 

000000 

QNT1 

OCT 

0 

6975 



• 



6976 

14363 

136647 

K149 

8 C I 

li«' 

6977 

14364 

000026 

K14Q 

OCT 

26 

6970 



• 



6979 

14365 

0 000000 

OWOQ 

DAC 

• • 

6980 

14366 

0 10 03007 


JST 

SAV 

6981 

14367 

0 02 00060 


LDA 

RPL 

6982 

14370 

0 07 14464 


SUB 

orpl 

6983 

14371 

100400 


SPL 


6984 

14372 

140407 


T CA 


6985 

14373 

0 11 00717 


CAS 

K101 

6986 

14374 

0 10 14523 


JST 

FSOO 

6987 

14375 

101000 


NOP 


6988 

14376 

0 02 00602 


LDA 

QCNT 

6989 

14377 

0 06 00721 


ADD 

K 1 0 3 

6990 

14400 

0 11 14522 


CAS 

K146 


SECOND 2 CHAR, OF NAME 
BUFFER 

LAST 2 CHAR, OF NAME 
BUFFER 


S/C BITS 
BUFFER 

SET SIZE * 0 
BUFFER 
a * l4 

SET BLOCK SIZE (DOUBLED) 

FLUSH BUFFER 

EXIT 

BLOCK CODE NUMBER (6) 
TEMP STORE 


FLUSH BUFFER IF DIFFERENCE 


6954 

6955 

6956 

6957 
6950 

6959 

6960 

6961 

6962 

6963 

6964 

6965 

6966 

6967 

6968 

6969 

6970 

6971 
69*2 

6973 

6974 

6975 

6976 

6977 

6978 

6979 

6980 
6901 

6982 

6983 
6904 
6985 

IN RPL’S NOT 1 6906 

6907 

6900 

6989 

6990 
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6991 

14401 

101000 

NOP 



6991 

6992 

14402 

0 10 14523 

JST 

FSOO 

FLUSH BUFFER 

6992 

6993 

14403 

0 02 00602 

LDA 

OCNT 


6993 

6994 

14404 

0 06 00721 

add 

K103 


6994 

6995 

14405 

0 04 00602 

STA 

OCNT 

OCNT a OCNT+3 

6995 

6996 

14406 

0 07 00721 

SUB 

K103 


6996 

6997 

14407 

0406 77 

ARR 

1 

OCI (OUTPUT CARD IMAGE) 

6997 

6998 

14410 

0 04 00000 

STA 

XR 


6998 

6999 

14411 

101400 

SHI 


LEFT OR RIGHT POS. 

6999 

7000 

14412 

0 01 14462 

JHP 

OW20 


7000 

7001 

14413 

0 10 14465 

JST 

PUOO 


7001 

7002 

14414 

0400 70 

IRL 

8 

IF BUFFER FULL 

7002 

7003 

14415 

1 13 14632 

IMA 

OCI,l 


7003 

7004 

14416 

0 03 00733 

ANA 

K116 

CALL FLUSH (FSCQ) 

7004 

7005 

14417 

1 05 14632 

ERA 

OCI.l 


7005 

7006 

14420 

1 04 14632 

OHIO STA 

OCI,l 


7006 

7007 

14421 

000201 

IAB 



7007 

7008 

14422 

1 04 14633 

STA 

ocm.i 


7008 

7009 

14423 

0 02 14722 

LDA 

PR 1*16 


7009 

7010 

14424 

000201 

IAB 



7010 

7011 

14425 

0 02 14720 

LDA 

PR I *14 

USE LON BIT OF PRI+14 DATA 

7011 

7012 

14426 

0410 67 

LLL 

9 


7012 

7013 

14427 

0404 77 

LGR 

1 

STRIP OFF HIGH BIT OF BLOCK CODE TYPE NO, 

7013 

7014 

14430 

0410 75 

LLL 

3 

SET DIGITS IN PRI*17, PRI*19 

7014 

7015 

14431 

0 10 14150 

JST 

OR80 


7015 

7016 

14432 

0 014722 

DAC 

PR I *16 


7016 

7017 

14433 

0 02 14720 

LDA 

PR I *14 


7017 

7013 

14434 

0400 72 

LRL 

6 


7018 

7019 

14435 

0414 77 

LGL 

1 

SHIFT ADDR. TO RIGHT BY 1 BIT 

7019 

7020 

14436 

0410 73 

LLL 

5 


7020 

7021 

14437 

0 10 14150 

JST 

0R80 

SET DIGITS IN PRI*15, PRI+16 

7021 

7022 

14440 

0 014720 

DAC 

PR I *1 4 


7022 

7023 

14441 

0 02 01154 

LDA 

KASP 

C 5P 5 C SP ) 

7023 

7024 

14442 

100020 

SRI 



7024 

7025 

14443 

0 01 14450 

JMP 

0W14 


7025 

7026 

14444 

Q Q A 14721 

CT A 

w i r- 

DJI ..4 K. 

r n i 

nwL.aJ.JDT T iZ n T \l A n it MATA TKi 

V * U 1 j w D * 1 WM i a i n 

Trt'U 
/ y tp 

7027 

14 445 

0 04 14722 

STA 

PR I *-16 

P H I v T BUFFER 4 I TH SPACES 

7027 
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7028 14446 

7029 14447 

7030 14450 

7031 14451 

7032 14452 

7033 14453 

7034 14454 

7035 14455 

7036 14456 

7037 14457 

7038 14460 

7039 14461 

7040 14462 

7041 14463 

7042 14464 

7043 14465 

7044 14466 

7045 14467 

7046 14470 

7047 14471 

7048 14472 

7049 14473 

7050 14474 

7051 14475 

7052 14476 
7853 14477 

7054 14500 

7055 14501 

7056 14502 

7057 14503 

7058 14504 

7059 14505 

7060 14506 

7061 14507 

7062 14510 

7063 14511 

7064 14512 


0 04 14723 


STA 

PRI*17 

0 04 14724 


STA 

PRins 

0 04 14720 

QW14 

STA 

PR I ♦14 

0 10 03016 


JST 

rst 

0 02 00060 


LDA 

RPL 

0 04 14464 


STA 

QRPL 

140040 


CRA 


0 13 14461 


IMA 

STFL 

101040 


SNZ 


0 12 00060 


IRS 

RPL 

•0 01 14365 


JMP# 

OWOO 

0 00 00000 

STFL 

PZE 

0 

0 10 14465 

0W20 

JST 

PUOO 

0 01 14420 


JMP 

OHIO 

0 00 00000 

QRPL 

PZE 

0 

0 000000 

PUOO 

DAC 

•• 

0 02 00632 


LDA 

CODE 

0 11 00722 


CAS 

K104 

101000 


NOP 


0 01 14504 


JMP 

PU10 

100040 


SZE 


0 01 14504 


JMP 

PU1Q 

0400 70 


LRL 

8 

0 02 00647 


LDA 

FTOP 

0400 74 

PUQ8 

LRL 

4 

0 04 14720 


STA 

PR I *14 

000201 


IAB 


0 04 14722 


STA 

PR I *16 

0402 64 


LRR 

12 

•0 01 14465 


JMP# 

PUOO 

0400 74 

PU10 

LRL 

4 

0 02 00630 


LDA 

AF 

0400 74 


LRL 

4 

0 05 00647 


ERA 

FTOP 

0 01 14476 


JMP 

PU08 

0400 74 

PU20 

LRL 

4 

0 02 00630 


LDA 

AF 


IF NO BINARY LISTING IS WANTED 


ORPL*RPL 

INDICATE WORD WAS KEY TO LOADER 
THEN LEAVE RPl ALONE 
RPL * RPL*1 


COMBINE CODES TO 

»4 


SKIP IF ABS 
JUMP IF REL. 


SAVE FOR LISTING 


RESTORE POSITION 


7028 

7029 

7030 

7031 

7032 

7033 

7034 

7035 
7936 

7037 

7038 

7039 

7040 

7041 

7042 

7043 

7044 

7045 

7046 

7047 

7048 

7049 

7050 

7051 

7052 

7053 

7054 

7055 

7056 

7057 

7058 

7059 

7060 

7061 

7062 

7063 

7064 
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7065 

14513 

0 03 00730 


ANA 

Kill 


7 065 

7066 

14514 

0400 74 


LRL 

4 


7066 

7067 

14515 

0 13 00630 


IMA 

AF 


7067 

7068 

14516 

0 03 14521 


ANA 

K114 


7068 

7069 

14517 

0 05 00630 


ERA 

AF 


7069 

7070 

14520 

0 01 14476 


JMP 

PU08 


7070 

7071 

14521 

014000 

K114 

OCT 

14000 


7071 

7072 

14522 

000117 

K146 

OCT 

117 


7072 

7073 



• 




7073 

7074 



• 




7074 

7075 



• 



7075 

7076 



• 


•FLUSH SUBROUTINE* 

7076 

7077 



• 




7077 

7078 

14523 

0 000000 

FS00 

DAC 

• • 


7078 

7079 

14524 

0 02 00602 


LDA 

OCNT 

BUFFER OCCUPANCY SIZE 

7079 

7080 

14525 

0 10 03007 


JST 

SAV 

SAVE INDEX REGESTER 

7080 

7001 

14526 

0 07 00722 


SUB 

K104 

CHECK FOR OCNT ,GT, 4 

7081 

7082 

14527 

100400 


SPL 



7082 

7003 

14530 

0 01 14603 


JMP 

FS20 

SKIP OUTPUT IF BUFFER IS EMPTY 

7003 

7084 

14531 

0 06 00723 


ADD 

K105 

ADD 1/2 AT B14 

7084 

7085 

14532 

0405 77 


ARS 

1 

DIVIDE BY 2 

7085 

7086 

14533 

140407 


TCA 



7086 

7087 

14534 

0 04 00602 


STA 

OCNT 

OCNT s -WORDS/BUFFER 

7087 

7088 

14535 

0 07 00717 


SUB 

K101 

■ 1 

7088 

7089 

14536 

0 04 00601 


STA 

PCNT 

buffer size including checksum 

7089 

7090 

14537 

0 02 14632 


LDA 

OCI 

FIRST WORD IN BUFFER 

7090 

7091 

14540 

0400 64 


LRL 

12 


7091 

7092 

14541 

0 11 00720 


CAS 

K102 

s2 

7092 

7093 

14542 

0 01 14544 


JMP 

*♦2 


7093 

7094 

14543 

0 01 14615 


JMP 

FS30 

BLOCK TYPE * 2 (RELOCATABLE CODE) 

7094 

7095 



* 


EVERY TIME 

A BLOCK OF OBJECT OUTPUT IS DUMPED, THE FIRST 

7095 

7096 



• 


3 WORDS OF 

THE BLOCK IS INSERTED IN THE SYMBOLIC OUTPUT 

7096 

7097 



# 


ALONG WITH 

AN EOB OPERATOR CODE IF SENSE SWITCH 1 15 DOWN, 

7097 

7098 



• 


TO INHIBIT 

THIS LINE, REPLACE FROM FS10 TO AND INCLUDING 

7098 

7099 



• 


FS11 WITH 

(FS10 ORA ), 

7099 

lift 

4 Ad A A 

4 ft 4 no n 

rc 4 n 

C4 



7i nn 

f * w ^ 

7101 

14545 

0 01 14570 


JMP 

FS1 1 

NO hL-.ary LISTING UNLESS SSw*l IS DOWN 

7101 
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7102 14546 

7103 14547 

7104 14550 

7105 14551 

7106 14552 

7107 14553 

7108 14554 

7109 14555 

7110 14556 

7111 14557 

7112 14560 

7113 14561 

7114 14562 

7115 14563 

7116 14364 

7117 14565 

7118 14566 

7119 14567 

7120 14570 

7121 14571 

7122 14572 

7123 14573 

7124 14374 

7125 14575 

7126 14576 

7127 14577 

7128 14600 

7129 14601 

7130 14602 

7131 14603 

7132 14604 

7133 14605 

7134 14606 

7135 14607 

7136 14610 

7137 14611 

7138 14612 


10 00000 
014702 
02 14626 
04 14707 
02 14627 
04 14710 
02 14632 
10 14150 
014712 
02 14633 
10 14150 
014716 
02 14634 
10 14150 
014722 
10 00000 
014702 
10 14301 
140040 

0 04 00000 

1 03 14632 
0 12 00000 
0 12 00602 

0 01 14572 

1 04 14632 
0 02 00601 
0 13 00000 
0 06 14625 
0 10 00000 
0 02 00060 
0400 70 

0 06 14630 
0 04 14632 
000201 
0 04 14633 
0 02 00721 
0 04 00602 


DAC 

PRI 

LDA 

FS41 

STA 

PR I *5 

LDA 

F S41*: 

STA 

PR I *6 

LDA 

OCI 

JST 

OR80 

DAC 

PRI *8 

LDA 

OCJ*l 

JST 

OR80 

DAC 

PRI ♦IS 

LDA 

0CI*2 

JST 

OR80 

DAC 

PRI ♦li 

CALL 

F4SSY* 

DAC 

PRI 

JST 

PRSP 

FSl 1 CRA 


STA 

0 

FS12 ERA 

0CI,1 

IRS 

0 

IRS 

ocnt 

JMP 

FS12 

STA 

OCI,l 

LDA 

PCNT 

IMA 

0 

ADD 

F$4 Q 

CALL 

F4S0UT 

FS20 LDA 

RPL 

LRL 

8 

ADD 

K145 

STA 

OCI 

IAB 


STA 

OCI*l 

LDA 

K103 

STA 

OCNT 


OUTPUT WHATEVER MIGHT BE IN SYMBOLIC 8UF, 
* { E) (O ) 

ENTER ’ E08 ’ INTO LISTING 
* ( B) ( SP ) 


ENTER FIRST WORD FROM BUFFER INTO LISTING 


ENTER WORD 2 FROM BUFFER INTO LISTING 


ENTER WORD 3 FROM BUFFER INTO LISTING 

OUTPUT SYMBOLIC BUFFER 

RESET SYMBOLIC BUFFER TO SPACES 

COMPUTE CHECKSUM 
MERGE BUFFER WORD INTO CHECKSUM 
INCREMENT BUFFER POSITION 
DECREMENT BUFFER SIZE 

SET CHECKSUM INTO BUFFER 
« NO, OF WORDS IN BUFFER 

* OC I ♦! # 1 
PUNCH BUFFER 

SET UP BUFFER FOR NEXT OUTPUT 
*’2000 (BLOCK CODE 2) 

SET FIRST 2 WORDS OF BUFFER 

*0 

RESET BUFFER OCCUPANCY SIZE 


7102 

7103 

7104 

7105 

7106 

7107 

7108 

7109 

7110 

7111 

7112 

7113 

7114 

7115 

7116 

7117 

7118 

7119 

7120 

7121 

7122 

7123 

7124 

7125 

7126 

7127 

7128 

7129 

7130 

7131 

7132 

7133 

7134 

7135 

7136 

7137 

7138 
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7139 

14613 

0 10 03016 


JST 

RST 

7140 

14614 

-0 01 14523 


JMP* 

FSOO 

7141 



» 



7142 

14615 

0414 72 

FS30 

LGL 

6 

7143 

14616 

0 07 00602 


SUB 

OCNT 

7144 

14617 

0 06 00717 


ADD 

K101 

7145 

14620 

0412 72 


LLR 

6 

7146 

14621 

0404 72 


LGR 

6 

7147 

14622 

0410 72 


LLL 

6 

7148 

14623 

0 04 14632 


STA 

OCI 

7149 

14624 

0 01 14544 


JMP 

FS10 

7150 



• 



7151 

14625 

1 014633 

FS40 

DAC 

OCl*l,l 

7152 

14626 

142717 

FS41 

BCI 

2 » EOB 


14627 

141240 




7153 

14630 

020000 

K145 

OCT 

20000 

7154 

14631 

060000 

C499 

OCT 

060000 

7155 



• 



7156 

14632 


OCI 

BSS 

40 

7157 

14702 


PRI 

BSS 

40 

7158 

14752 

120240 


BCI 

20 * 


14753 

120240 





14754 

120240 





14755 

120240 





14756 

120240 





14757 

120240 





14760 

120240 





14761 

120240 





14762 

120240 





14763 

120240 





14764 

120240 





14765 

120240 





14766 

120240 





14767 

120240 





14770 

120240 





14771 

120240 





14772 

120240 
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RESET INDEX REGISTER 
EXIT 

7141 

MERGE BUFFER SIZE INTO BLOCK HEADER 7142 

BUFFER SIZE ; 1 43 

a 1 (ACCOUNT FOR CHECKSUM ) 7144 

7145 

7146 

BRING IN UPPER HALF OF ADDRESSES 7147 

STORE INTO BUFFER 714b 

COMPUTE CHECKSUM 7149 

7150 

7151 

♦BOB’ 7152 

BLOCK TYPE 2 CODE 7153 

7154 

7155 

40 WORD CARD IMAGE INPUT BUFFER 7156 

40 WORD PRINT BUFFER 7 * 57 

7158 
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14773 

14774 

14775 

7159 14776 

7160 

7161 

7162 

7163 

7164 

7165 15034 


120240 

120240 

120240 


100000 


BSS 30 


COMPILE PATCH AREA 


* I OS (AND 1 01 ) GO HERE* 


END AO 


7159 

7160 

7161 

7162 

7163 

7164 

7165 


NO ERRORS IN ABOVE ASSEMBLY, 

DAP. 16 REV, E 09-10-6 



